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TRUE -INTEGRATING  ENVIRONMENTAL 
NOISE  MONITOR  AND  SOUND- 
EXPOSURE  LEVEL  METER 
VOLUME  III:  MICROPROCESSOR  PROGRAM 
AND  DATA  INTERFACE  DESCRIPTION 

1  INTRODUCTION 


Background 

This  is  the  third  volume  of  a  four-volume  set  of  reports  which 
describe  the  experimental  background,  use,  specifications,  and  construc¬ 
tion  of  the  True-Integrating  Environmental  Noise  Monitor  and  Sound- 
Exposure  Level  Meter  developed  by  the  U.S.  Army  Construction  Engineering 
Research  Laboratory  (CERL). 

This  volume,  in  conjunction  with  Volume  I,  User's  Guide;  Volume  II, 
Miring  and  Parts  Lists,  Parts  Layouts,  and  Schematics;  Volume  IV, 
Mechanical  Construction  and  Electrical  Checkout;  and  a  set  of  contrac¬ 
tual  general  provisions  constitutes  a  purchase  specification  for  the 
CERL  noise  monitor  system.*  Although  this  system  is  relatively  complex 
and  performs  a  variety  of  sound  recording  and  analyzing  functions,  its 
construction  is  straightforward;  the  information  in  Volumes  I  through  IV 
should  enable  an  electronics  system  manufacturer  or  electronics  labora¬ 
tory  to  build  the  CERL  noise  monitor  system. 


Purpose 


The  purpose  of  this  volume  is  to  give  a  detailed  description  and 
explanation  of  the  microprocessor  program  and  interfaces  for  the  True- 
Integrating  Environmental  Noise  Monitor  and  Sound-Exposure  Level  Meter. 


Outline  of  Report 

Chapter  2  describes  the  program  used  by  the  monitor's  internal 
microprocessor,  including  a  list  of  the  various  hardware  commands  and  a 
step-by-step  description  of  the  program  operation.  Chapter  3  describes 
external  devices  that  can  be  attached  to  the  monitor,  the  minisample 
tape  recorder  error  correction  technique,  and  formats  of  the  magnetic 
tape  records. 


*  Volume  I  published  May  1978,  CERL  Technical  Report  (TR)  N-41/ 
ADA060958;  Volume  II  published  June  1979,  CERL  TR  N-41/ADA072002; 
Volume  IV,  CERL  TR  N-41,  published  March  1980. 
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Mode  of  Technology  Transfer 

This  four-vol ume  set  of  reports  contains  the  necessary  technical 
information  for  the  purchase  specification  and  construction  of  the 
True-Integrating  Environmental  Noise  Monitor  and  Sound-Exposure  Level 
Meter. 
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2  MICROPROGRAM  DESCRIPTION 


General 


The  unit  begins  to  execute  the  microprogram*  at  Loc  7777  when  the 
power  is  first  turned  on.  The  program  performs  an  initial ization  to  set 
up  the  operating  conditions  of  the  monitor.  Then,  the  program  waits  in 
the  switch  testing  loop.  Whenever  a  flag  or  a  switch  is  set,  the 
routine  is  exited  and  the  requested  operation  performed.  Appendix  A 
lists  program  definable  names  which  are  tied  to  hardware  function. 
Appendix  B  lists  the  microprogram  used  by  the  monitor.  Appendices  C 
through  E  contain  a  number  of  short  test  programs  used  in  troubleshoot¬ 
ing  the  monitor. 

The  initialization  routine  sets  up  the  unit  by  clearing  all  flags 
and  interfaces,  setting  up  the  read/write  memory,  and  setting  the  unit 
to  standby  mode. 

The  initial ization  routine: 

1.  Clears  printer  interface** 

2.  Clears  lights  and+memory  control 

3.  Sets  up  interrupt  jump 

4.  Transfers  part  of  program  from  Field  2  to  Field  (1 

5.  Sets  up  page  0 

6.  Clears  process  control  buffer 

7.  Determines  size  of  Field  1  data  memory 

8.  Sets  mode  to  10  (standby) 

9.  Zeroes  energy  buffers 

10.  Sets  timinq  to  0.1  seconds  (s) 

11.  Sets  threshold  to  9  decibels  (dB) 

12.  Sets  memory  format  to  6414  octal  and  resets  all  buffer  pointers 

13.  Turns  on  interrupt 

14.  Begins  switch  testing  routine. 


*  Microprograms  are  a  series  of  steps  executed  by  a  computer  which  is 
composed  of  only  a  few  large-scale  integrated  circuits.  As  integrated 
circuit  technology  progresses,  the  distinction  between  microprograms 
and  standard  computer  programs  will  probably  disappear. 

**Printer,  as  used  in  this  report,  is  a  device  which  prints  signed 

numbers  up  to  six  digits  long,  one  number  per  line,  with  no  alphabetic 
+  characters.  Many  desk  top  calculators  have  printers  like  this. 
Interrupt  is  a  capability  of  a  computer  to  stop  whatever  it  is  doing 
to  go  and  do  something  else.  An  interrupt  request  is  only  honored  at 
the  completion  of  a  computer  instruction  so  that  the  computer  never 
loses  any  data  as  a  result  of  an  interrupt.  This  capability  makes  the 
computer  seem  to  be  able  to  do  more  than  one  thing  at  a  time. 


Switch  Testing  Routine 


The  switch  testing  routine  determines  what  the  monitor  will  do  next 
by  serially  checking  all  flags.  When  "flag"  set  or  a  switch  is 
depressed,  the  switch  testing  routine  jumps  to  the  appropriate  routine. 
To  do  this,  the  monitor: 

1.  Reads  front  panel  switches. 

2.  Checks  for  data  ready  flag  from  the  data  acquisition  hardware: 

a.  If  flag  is  set,  action  is  taken  only  during  autocalibration 

b.  If  flag  is  not  set,  the  monitor  skips  to  the  next  test. 

3.  Skips  this  test  if  the  printer  is  idle;  otherwise,  tests 
printer  flag: 


a.  If  flag  is  set,  goes  to  the  printer  service  routine. 

b.  If  not  set,  skips  to  next  test. 

4.  Tests  for  START  switch  depressed: 

a.  If  switch  is  not  depressed,  clears  edge  trigger  flag  and 
ski ps  to  next  test. 

b.  If  switch  is  depressed,  goes  to  START  switch  service 
routine  only  if  edge  trigger  flag  is  clear. 

5.  Tests  for  SAMPLE  switch  depressed: 

a.  If  switch  is  not  depressed,  clears  edge  trigger  flag  and 
skips  to  next  test. 

b.  If  switch  is  depressed,  goes  to  SAMPLE  switch  service 
routine  only  if  edge  trigger  is  clear. 

6.  Debounces  START/STOP  print  switch: 

a.  If  set  for  80  milliseconds  (ms),  goes  to  START/STOP  print 
service  routine. 

b.  If  not  set  for  80  ms,  skips  to  next  test. 
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7.  Tests  for  real  time  clock  flag: 

a.  If  set,  goes  to  real  time  clock  service  routine. 

b.  If  not  set,  skips  to  next  test. 

8.  Tests  for  threshold  exceeded  flag: 

a.  If  set,  goes  to  threshold  service  routine  on  both  positive 
and  negative  edges. 

b.  If  not  set,  skips  to  next  test. 

9.  Skips  this  test  if  display  request  not  active;  otherwise  checks 
di spl ay  fl ag : 


a.  If  set,  updates  H-P*  display. 

b.  If  not  set,  skips  to  next  test. 

10.  Skips  this  test  if  dump  routine  is  idle;  otherwise  does 
indirect  jump  via  dump  action  table. 

11.  Skips  this  test  if  tape  output  is  idle;  otherwise  tests  UART** 
output  flag: 


a.  If  set,  goes  to  tape  output  service  routine  (UART's 
transmitter  buffer  is  empty). 

b.  If  not  set,  skips  to  next  test. 

12.  Skips  this  test  if  tape  input  is  idle:  otherwise,  tests  UART 
input  flag: 

a.  If  set,  goes  to  tape  input  service  routine. 

b.  If  not  set,  skips  to  next  test. 


*  An  H-P  display  is  a  four-digit  display  comprised  of  light-emitting 
diode  (LED)  arrays  with  integral  decoder  and  drivers  made  by  the 
Hewlett-Packard  Corporation. 

**The  Universal  Asynchronous  Receiver  Transmitter  (UART)  is  a  large- 
scale  integrated  circuit  used  to  convert  a  parallel  stream  of  data 
(eight  bits  at  a  time)  to  a  serial  stream  with  start  and  stop  bits  and 
a  parity  bit  (if  requested).  The  circuit  can  also  simultaneously  per¬ 
form  the  reverse  operation  while  checking  for  overrun  (failure  to  re¬ 
trieve  data  before  reception  of  next  data),  and  correct  parity  and 
framing  (failure  to  receive  stop  bit  when  expected). 
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13.  Reads  FUNCTION  switch  code  and  saves  it  in  memory. 

14.  Debounces  EXECUTE  switch: 

a.  If  set  for  80  ms,  goes  to  function  switch  service  routine 
only  if  DISPLAY  switch  is  set. 

b.  If  not  set,  skips  to  next  test. 

15.  Debounces  DISPLAY  switch;  i.f  set  for  80  ms,  goes  to  section  of 
function  switch  service  routine  entry  point  corresponding  to  the  state 
of  the  EXECUTE  switch. 

16.  Goes  to  Step  1. 


Interrupt  Handler 

This  routine  retrieves  data  from  the  data  acquisition  hardware, 
converts  the  data  to  internal  format,  and  handles  the  conversion  to 
engineering  units.  It  also  computes  the  total  energy  during  modes  C,  1, 
2,  6,  and  8.  After  completing  computation,  this  routine  stores  the  data 
in  circular  buffers.  The  variable  MEMFLG  is  set  by  the  main  program  to 
tell  the  interrupt  routine  which  data  should  be  stored  in  memory.  The 
steps  taken  by  the  interrupt  handler  routine  are: 

1.  Saves  the  current  computer  state  in  a  separate  area.  This  is 
needed  so  that  the  processor  can  be  restored  to  the  condition  that 
existed  just  before  the  interruit  (after  the  data  computation  is  per¬ 
formed)  . 


2.  Checks  MEMFLG: 

a.  If  MEMFLG  is  clear,  then  no  data  are  being  requested  and 
the  program  jumps  to  the  routine  exit  point. 

b.  If  MEMFLG  is  not  clear,  the  interrupt  routine  continues. 

3.  Reads  the  hardware  time  register,  converts  number  to  Log2 
seconds,  and  updates  accumulated  time  for  energy  calculations. 

4.  Reads  hardware  peak*  register  for  the  program- sel ected  channel, 
converts  number  to  Log^,  and  adds  in  the  appropriate  gain  constant. 


*  Peak  is  the  maximum  instantaneous  deviation  of  sound  pressure.  This 
can  be  either  positive  or  negative;  however,  the  monitor  only  displays 
the  absolute  value. 
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5.  Compares  the  current  peak  reading  with  the  current  overall 

peak : 

a.  If  the  new  peak  is  greater,  it  replaces  the  overall  peak. 

b.  If  new  peak  is  not  greater,  the  routine  continues. 

6.  Reads  Channel  1  (CHI)  energy,  converts  to  Log^,  adds  in  the  CHI 

gain  constant,  updates  the  accumulated  CHI  energy,  ana  finally  computes 
the  equivalent  continuous  sound  level  (L  )  (the  average  level  of  this 
sample).*  " 

7.  Same  as  Step  6,  but  for  Channel  2  (CH2). 

8.  Saves  the  values  in  Steps  3  through  7  in  a  display  buffer  (most 
recent  values);  the  overall  values  are  saved  instead  if  bit  9  is  set  in 
MEMFLG. 


9.  Adjusts  the  calibration  constant.  Both  channels  can  be  done 
simultaneously  during  autocal ibration  or  individually  during  manual 
cal ibration; 


a.  If  bit  10  of  MEMFLG  is  set,  CHI  is  adjusted. 

b.  If  bit  11  of  MEMFLG  is  set,  CH2  is  adjusted. 

c.  If  neither  bit  10  or  11  is  set,  no  adjustment  is  performed. 

10.  Tests  the  data  ignore  flag.  If  the  program  requests  a  sample 
during  modes  5  through  9,  this  flag  is  set: 

a.  If  set,  only  the  display  buffer  is  updated;  program  contin¬ 
ues  with  Step  13. 

b.  If  not  set,  the  routine  continues. 

11.  Stores  data  in  circular  buffers: 

a.  Only  those  data  requested  by  MEMORY  FORMAT  are  saved. 

b.  If  this  is  the  first  interrupt  after  2400  hr,  Ldn  is  saved 
in  its  own  circular  bufffer.**  The  energy  accumulators  are  then  reset  to 
zero. 


*  The  Leq  is  the  steady  level,  in  A-weighted  decibels  (dBA),  that  would 
produce  the  same  A-weighted  sound  energy  over  a  stated  period  of  time 
as  a  time-varying  sound. 

**Ldn  is  a  24-hr  Lea,  except  a  10  dB  penalty  is  added  to  all  levels 
measured  between  2200  and  0700  hr. 
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12.  Tests  for  autocal ibration  request: 

a.  If  no  request  is  present,  jumps  to  Step  13. 

b.  If  a  request  is  present,  enables  the  jump  to  the  autocali¬ 
bration  routine.  (Since  this  test  is  performed  in  the  interrupt 
routine,  autocalibration  always  occurs  at  the  end  of  a  block.) 

13.  Restores  the  current  computer  state  from  the  separate  buffer 
area.  (This  enables  the  processor  to  continue  the  main  program  from  the 
exact  point  at  which  it  was  interrupted.) 


Autocalibration  Routine 


This  routine  turns  on  the  electrostatic  actuator*  attached  to  the 
outdoor  microphone  system,  reads  the  resultant  microphone  output,  and, 
if  necessary,  adjusts  the  gain  constants.  This  routine  is  called  once 
every  6  hr  in  modes  6  and  8  by  the  real  time  clock  routine. 

When  the  user  enters  mode  6  or  8,  an  entry  is  made  in  the  real  time 
clock  task  table  to  activate  autocalibration  in  6  hr.  At  the  end  of 
this  6-hr  period,  the  real  time  clock  sets  a  flag  for  the  interrupt 
routine.  When  the  current  data  block  is  completed,  an  interrupt  occurs. 
During  the  interrupt  service  routine,  the  actual  autocal ibration  pro¬ 
cedure  is  enabled  by  replacing  a  no  operation  (MOP)  instruction  in  the 
switch  testing  loop  with  a  jump  instruction  pointing  to  the  first 
instruction  of  the  autocalibration  routine. 

After  autocalibration  (duration  can  be  from  a  minimum  of  5  s  to  a 
maximum  of  40  s),  the  NOP  instruction  is  reinstated  and  a  short  block  is 
set  up  to  keep  the  monitor  synchronized.  The  real  time  clock  is  used  to 
time  the  short  block.  After  data  are  collected  from  the  short  block, 
the  real  time  clock  routine  sets  up  the  hardware  to  resume  normal  data 
collection. 

The  autocal ibration  procedure: 

1.  Sets  the  real  time  clock  task  table  for  the  time  that  the  next 
block  should  start.  If  the  user  has  selected  a  block  length  less  than 
40  s,  an  error  message  is  displayed  ( — 4),  and  the  autocalibration  pro¬ 
cedure  is  aborted. 


*  An  electrostatic  actuator  is  a  device  which  is  attached  to  a  micro¬ 
phone  and  which  uses  an  electric  field  to  move  the  microphone 
diaphragm.  Because  this  movement  duplicates  the  action  of  acoustic 
pressure,  and  is  repeatable,  the  device  can  be  used  to  calibrate  a  mi¬ 
crophone.  Holes  in  the  actuator  allow  acoustic  pressure  to  readily 
pass  through;  therefore,  the  actuator  does  not  have  to  be  removed  when 
the  microphone  is  being  used. 
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2.  Sets  the  real  time  clock  task  table  for  the  time  of  the  next 
calibration  (5  hr,  59  min,  and  21  s  away). 

3.  Sets  the  real  time  clock  task  table  to  inhibit  the  22C0  and 
07C0  hr  threshold  shifts. 

4.  Saves  the  threshold  level  and  the  sample  length  in  a  buffer. 

The  threshold  is  set  to  zero  and  the  sample  length  is  set  to  0.5  s. 

5.  Waits  1.5  s,  then  checks  the  microphone  output  level: 

a.  If  the  background  level  is  more  than  15  dB  below  the  refer¬ 
ence  level,  the  autocalibration  continues  with  Step  6. 

b.  If  not,  six  retries  are  performed  before  discontinuing. 

6.  Turns  on  the  electrostatic  actuator  and  waits  1.5  s  for  it  to 
stab i 1 i ?e. 

7.  Reads  the  microphone  output  and  tests  level  and  peak: 

a.  If  the  average  level  has  not  changed  by  more  than  0.7  dB, 
and  if  the  peak  level  is  within  6  dB  of  the  average  level,  then  the  gain 
constant  is  adjusted  sc  that  the  microphone  output  matches  the  reference 
1  evel . 


b.  If  the  level  has  changed  by  more  than  0.7  dB,  turns  off  the 
el ectrostatic  actuator  and  returns  to  Step  5. 

8.  Turns  off  the  electrostatic  actuator  in  preparation  for  back¬ 
ground  noise  check.  The  program  waits  1.5  s  to  allow  system  to  stabil¬ 
ize.  Background  level  must  be  more  than  15  dB  below  reference  level; 
otherwise,  the  program  returns  to  Step  5. 

9.  Restores  the  monitor  threshold  level  and  sample  length. 

10.  Resets  the  real  time  clock  task  table  to  enable  the  2200  and 
0700  hr  threshold  shifts. 

11.  Begins  executing  short  block. 


Printer  Flag  Service  Routine 

This  routine  sets  up  pointers  to  the  printer  buffer.  This  buffer 
contains  intermediate  data  used  by  the  output  and  error  correction  code 
subroutines.  The  intermediate  data  have  to  be  stored  while  the  printer 
is  printing  to  allow  the  subroutines  to  be  shared  with  the  minisample 


tape  recorder  routines*  Once  the  pointers  are  set,  the  routine  jumps  to 
wherever  the  program  left  off  in  the  printer  service  routine. 

The  printer  flag  service  routine: 

1.  Sets  pointers 

2.  Retrieves  return  address 

3.  Jumps  to  return  address. 


Start  Switch  Service  Routine 


This  routine  sets  up  the  conditions  for  taking  data  in  the  selected 
mode.  To  conserve  memory  space,  the  routine  consists  of  a  series  of 
tables  which  determine  the  steps  for  each  mode.  These  tables  are  inter¬ 
spersed  by  a  short  series  of  instructions. 

The  start  switch  service  routine: 

1.  Checks  the  edge  trigger  flag: 

a.  If  set,  returns  to  switch  testing  routine. 

b.  If  not  set,  executes  rest  of  routine. 

2.  Sets  edge  trigger  flag. 

3.  Clears  threshold  flag. 

4.  Terminates  most  recent  data  display. 

5.  Determines  which  mode  table  to  use. 

6.  Turns  off  interrupt  system. 

7.  Picks  up  memory  flag  from  selected  mode  table  (see  Loc  0124  in 
Appendix  B  for  a  description  of  memory  flag  bits). 

8.  Resets  appropriate  bits  in  the  mode  word  (see  the  symbol  defin¬ 
itions  in  Appendix  D  for  a  description  of  mode  bits). 

9.  Sets  appropriate  bits  in  the  mode  word. 


*  The  minisample  tape  recorder  is  used  to  take  samples  of  sound  during 
measurements;  this  allows  the  operator  to  identify  noise  emission 
sources. 


10.  Executes  a  series  of  tasks  whose  addresses  are  given  in  the 
particular  mode  table. 


11.  Returns  to  switch  testing  routine. 


Sample  Switch  Service  Routine 


This  routine  sets  up  the  condition  for  sampling  data  in  the 
selected  mode.  To  conserve  memory  space,  the  routine  consists  of  a 
series  of  tables  which  determine  the  steps  for  each  mode.  These  tables 
are  interpreted  by  a  short  series  of  instructions. 

The  sample  switch  service  routine: 

1.  Checks  the  edge  trigger  flag: 

a.  If  set,  returns  to  switch  testing  routine. 

b.  If  not  set,  executes  rest  of  routine. 

2.  Sets  edge  trigger  flag. 

3.  Checks  MEMFLAG: 

a.  If  no  bits  are  set,  returns  to  switch  testing  routine. 

b.  If  bits  are  set,  continues  routine. 

4.  Goes  to  Step  4  of  start  switch  service  routine. 


Print  Switch  Service  Routine  (With  Printer  Subroutine) 

This  routine  transmits  the  information  stored  in  the  printer  to  an 
external  device  in  a  format  tailored  to  that  device.  Depressing,  then 
redepressing,  alternately  begins  and  halts  the  transmission  of  data. 

The  routine  sends  a  leader  and  header,  the  data  stored  in  the  main  cir¬ 
cular  buffer,  and  the  data  in  the  circular  buffer. 

All  the  data  pass  through  the  printer  subroutine.  This  routine  has 
three  major  entry  points  which  take  the  three  major  data  types  and  con¬ 
vert  them  to  binary  coded  decimal  (BCD)  format.  The  three  major  data 
types  are  positive  logarithmic  numbers,  signed  logarithmic  numbers,  and 
positive  numerics. 
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The  print  switch  service-routine: 

1.  Sets  up  pointers  to  the  magnetic  tape. 

2.  Checks  the  printer  flag  test  of  the  switch  testing  routine: 

a.  If  a  K2  instruction*  is  present,  outputs  a  line  feed,  dis¬ 
ables  printer  test  by  overwriting  the  K2  instruction  with  a  JMP  instruc¬ 
tion,**  and  returns  to  the  switch  testing  routine. 

b.  If  a  JMP  instruction  is  present,  enables  a  printer  test  by 
overwriting  the  JMP  instruction  with  a  K2  instruction  and  continues 
routine. 


3.  Turns  on  the  printer  and  waits  for  100  ms. 

4.  Determines  which  external  device  is  connected  to  the  monitor 
(see  Loc  102  in  Appendix  B's  device  code  listing): 

a.  If  ru  aevice  is  connected,  disables  printer  test  by 
overwriting  the  K2  instruction  with  a  JMP  instruction  and  returns  to  the 
switch  testing  routine. 

b.  If  a  device  is  connected,  sets  a  flag  representing  the  par¬ 
ticular  device  and  continues  the  routine. 

5.  Checks  to  see  if  a  tape  recorder  is  connected  to  the  monitor: 

a.  If  a  tape  recorder  is  connected,  sends  a  leader  consisting 
of  16  bytes  of  377c,  followed  by  synch  word  consisting  of  a  byte  of  13R 
and  a  byte  of  320g. 

b.  If  other  device  is  connected,  does  not  output  leader. 

6.  Outputs  a  header  which  consists  of  a  line  feed  and  a  series  of 
numbers  which  indicates  the  state  of  the  monitor.  These  numbers  are 
comprised  of  three  data  types  which  are  converted  to  printable  informa¬ 
tion  by  the  print  subroutine: 

a.  The  print  subroutine  has  three  entry  points: 

(1)  BPRINT  —  converts  incoming  12-bit  value  to  a  posi¬ 
tive,  four-digit  BCD  number. 

(2)  APRINT  —  converts  incoming  12-bit  value  (assumed  to 
be  a  positive,  logarithmic  number)  to  a  numeric,  and  then  to  a  positive, 
four-digit  BCD  number. 


*  A  K2  instruction  loads  an  octal  2  in  the  computer's  acumulator. 

**A  JMP  instruction  causes  the  computer  to  begin  executing  at  the 
operand  address. 
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(3)  PRINT  --  converts  incoming  12-bit  value  (assumed  to  be 
a  signed,  logarithmic  number)  to  a  numeric,  and  then  to  a  signed  four- 
digit  BCD. 


b.  Saves  the  numeric  in  a  temporary  location  in  case  the  out¬ 
put  device  is  the  magnetic  tape. 

c.  Sends  data  in  three  formats: 

(1)  If  printer,  four-digit  BCD  with  separate  bits  for 
decimal  points  and  sign. 

(2)  If  calculator,  seven-digit  BCD  with  special  codes  for 
negative  (1,000,000)  and  line  feed  (2,000,000).  No  decimal  points  are 
transmitted. 

(3)  If  magnetic  tape,  a  continuous  stream  of  8-bit  charac¬ 
ters  consisting  of  groups  of  51  data  bits  to  which  a  12-bit  error 
correcting  code  and  a  1-bit  parity  code  are  appended. 

d.  Sends  print  pulse: 

(1)  If  printer,  continues  with  switch  testing  routine. 

(2)  If  tape,  continues  with  switch  testing  routine. 

(3)  If  programmable  calculator,  waits  100  ms  and  tests  for 
data  accepted.  If  accepted,  continues  with  switch  testing  routine:  if 
not  accepted,  causes  error  to  appear  in  the  display.  The  programmable 
calculator  must  be  programmed  for  a  100  ms  delay  (minimum)  of  its  own 
before  the  next  data  request  to  insure  proper  interaction  between  the 
calculator  and  the  monitor. 

7.  Outputs  line  feed. 

8.  Checks  to  see  if  main  circular  buffer  is  empty: 

a.  If  not  empty,  outputs  block  number,  outputs  block  informa¬ 
tion  as  specified  by  the  format  word  and  the  printer  subroutine  (see 
table  at  Loc  4254  in  Appendix  B),  adjusts  pointers,  and  goes  back  to 
Step  7. 


b.  If  empty  and  programmable  calculator,  sets  up  printer  flag 
return  to  Step  7.  (This  effectively  puts  the  empty  buffer  test  into  the 
switch  testing  routine.) 

c.  If  empty  and  not  programmable  calculator,  outputs  a  zero 
block  number  and  continues  routine. 
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9.  Outputs  a  line  feed. 


10.  Checks  to  see  if  Ldn  circular  buffer  is  empty: 

a.  If  not  empty,  outputs  block  number,  outputs  L<jn  information 
as  specified  by  the  format  word  (see  table  at  Loc  4254  in  Appendix  B) , 
adjusts  pointers,  and  goes  back  to  Step  9. 

b.  If  empty,  outputs  a  zero  block  number  and  disables  printer 
by  changing  the  instruction  in  the  printer  flag  test  to  a  JMP  instruc¬ 
tion. 


Real  Time  Clock  Service  Routine 


This  routine  clears  the  real  time  clock  flag;  updates  the  time  of 
day  clock;  maintains  separate  words  for  seconds,  minutes,  hours,  and 
days;  and  seeks  process  buffer  to  see  if  any  processes  are  to  be  acti¬ 
vated  at  this  time.  If  so,  it  activates  them  and  then  continues  the 
scan.  At  the  completion  of  the  scan,  it  returns  to  the  switch  testing 
routine. 

The  real  time  clock  service  routine: 

1.  Clears  real  time  clock  flag. 

2.  Turns  off  the  interrupt  system. 

3.  Updates  the  time  of  day  clock  by  one  count  (1  s). 

4.  Turns  the  interrupt  system  back  on. 

5.  Scans  through  the  following  process  table: 

a.  Performs  autostart. 

b.  Performs  autocal ibration. 

c.  Puts  Ldn  in  Ldn  circular  buffer. 

d.  Turns  off  minisample  tape  recorder  (recorder  in  clock- 
controlled  mode). 

e.  Turns  on  minisample  tape  recorder  (recorder  in  clock- 
controlled  mode). 

f.  Adjusts  threshold  for  nighttime  operation  (reduces  thres¬ 
hold  by  10  dB). 


g.  Adjusts  threshold  r  daytime  operation  (increases  thres¬ 
hold  by  10  dB). 

h.  Takes  short  block  of  data  (part  of  autocal ihration) . 

6.  Returns  to  switch  testing  routine. 


Threshold  Flag  Service  Routine 


This  routine  performs  operations  on  both  the  positive  and  negative 
-gdges  of  the  threshold  flag.  On  the  positive  edge  and  in  modes  6  and  7, 
i t "tTfms^g n  the  minisample  tape  recorder,  sends  out  a  leader,  and  out¬ 
puts  identiYre-atipn  data.  On  the  positive  edge  and  in  mode  3,  it  turns 
on  the  start  light  and-tgl  lows  the  same  procedure  as  in  modes  6  and  7. 

On  the  negative  edge  and  in  modes  6  and  7,  it  turns  off  the  minisample 
tape  recorder.  On  the  negative  edge  arid  in  mode  3,  it  turns  off  the 
start  light  and  follows  the  same  procedure-  as  in  modes  6  and  7. 

Specifically,  when  the  positive  edge  is  detected , -the  threshold 
flag  service  routine  executes  Steps  1  through  13.  When  the  negative 
edge  is  detected,  the  routine  executes  Steps  15  through  18. 

The  threshold  flag  service  routine: 

1.  Checks  threshold  edge  trigger  flag: 

a.  If  set,  returns  to  switch  testing  routine. 

b.  If  not  set,  executes  rest  of  routine. 

2.  Sets  edge  trigger  flag. 

3.  Tests  MEMFLG: 

a.  If  bit  3  is  not  set,  returns  to  switch  testing  routine. 

b.  If  bit  3  is  set,  turns  on  minisample  tape  recorder.  In 
addition,  if  the  monitor  is  in  mode  3,  turns  on  the  start  light. 

4.  Enables  the  minisample  tape  output  flag  test. 

5.  Sets  up  pointers  to  the  minisample  tape  buffer. 

6.  Outputs  a  leader  consisting  of  16  bytes  of  377g  and  a  synch 
word  consisting  of  a  byte  of  13g  and  a  byte  of  320g. 

7.  Outputs  the  serial  number. 
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mum 


8.  Outputs  block  number. 

9.  Outputs  day. 

10.  Outputs  hours  and  minutes  as  " HH.MM." 

11.  Sends  out  blanks  to  insure  that  the  error  correction  code 
routine  receives  at  least  51  data  bits. 

12.  Disables  the  minisample  tape  output  flag  test. 

13.  Disables  the  minisample  tape  input  flag  test. 

14.  Returns  to  switch  testing  routine. 

15.  Checks  threshold  edge  trigger  flag: 

a.  If  not  set,  returns  to  switch  testing  routine. 

b.  If  set,  executes  rest  of  routine. 

16.  Clears  edge  trigger  flag. 

17.  Tests  MEMFLG: 

a.  If  bit  3  is  not  set,  returns  to  switch  testing  routine. 

b.  If  bit  3  is  set,  turns  off  minisample  tape  recorder.  In 
addition,  if  the  monitor  is  in  mode  3,  turns  off  the  start  light. 

18.  Returns  to  switch  testing  routine. 

Display  Update  Routine 

Once  the  interrupt  hand  1  ef~~s?:t-s_4 /Hag  (DISFL)  to  -1  (telling  the 
switch  testing  routine  that  new  data  are'reacfy^-.-ti^displ ay  update 
routine  is  executed.  The  display  update  routine  automatical Ty-Hp4ates 
the  display  if  the  user  requests  one  of  the  following: 

1.  CHI 

2.  CH2 

3.  Sample  length 

4.  Peak. 
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The  display  update  routine: 

1.  Sets  DISFL  to  +1. 


2.  Checks  display  channel: 

a.  If  zero,  returns  to  switch  testing  routine. 

b.  If  a  positive  number  is  requested,  continues  routine. 

3.  Uses  channel  number  as  an  index  into  a  jump  routine. 

4.  Retrieves  requested  information: 

a.  If  peak,  jumps  to  the  function  switch  routine  step  which 
displays  large,  positive  numbers. 

b.  If  sample  length,  jumps  to  the  function  switch  routine  step 
which  displays  signed  numbers. 

^  c.  If  CH1-CH2,  tests  display  switch  for  L  or  sound-exposure 
level  (SEL):*  eq 

(1)  If  the  display  is  SEL,  adds  time  to  L  value  using  a 

13-bit  addition:  eq 

(a)  If  the  result  of  the  addition  is  negative,  jumps 
to  the  function  routine  step  which  displays  signed  numbers. 

(b)  If  the  result  is  positive,  jumps  to  the  function 
switch  routine  step  which  displays  large,  positive  numbers. 

(2)  If  the  display  is  L  ,  jumps  to  the  function  switch 
routine  step  which  displays  large,  poi^tive  numbers. 


When  the  user  requests  the  display  of  data  from  the  main  or  L^n 
circular  buffers,  pointers  are  set  up  and  the  memory  data  display  flag 

test  is  enabled .  The  memory  data  di spl ay  f  1  ag  servi-ce  routi ne  4  tier - 

displays  a  block  number  followed  by  the  requested  data.  It  continues  to 
increment  the  block  number  and  data  pointers  as  long  as  the  user 
depresses  the  display  switch.  When  the  routine  reaches  the  end  of  the 
buffer,  it  returns  to  block  number  1  and  continues  the  scan. 


*  SEL  is  the  integral  over  time  of  the  acoustic  pressure  squared. 
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The  memory  data  display  flag  service  routine: 

1.  Increments  the  counter  (PUMPFL): 

a.  If  the  result  is  not  zero,  continues  switch  testing 

routine. 

b.  If  the  result  is  zero,  continues  routine. 

2.  Resets  the  counter  (DUMPFL). 

3.  Checks  the  next  item  in  the  data  table: 

a.  If  zero  (end  of  table),  updates  pointers  and  recalls  the 
memory  data  display  function  routine. 

b.  If  not  zero,  sets  the  address  of  i nstruction1-  n  the  func¬ 
tion  routine  which  will  correctly  display  current  data. 

4.  Retrieves  data  from  memory  and  jumps  to  address  computed  in 
Step  3b. 


Minisample  Tape  Output  Flag  Service  Routine 


This  routine  sets  up  pointers  to  the  minisample  tape  output  buffer. 
This  buffer  contains  intermediate  data  used  by  the  output  and  error 
correction  code  subroutines.  The  data  have  to  be  stored  while  the  (min¬ 
isample)  tape  is  running  to  allow  the  subroutines  to  be  re-entered. 

Then  the  subroutines  can  be  shared  with  the  printer  routine.  Once  the 
pointers  are  set,  the  routine  then  jumps  to  wherever  the  program  left 
off  in  the  threshold  flag  service  routine  (see  p  21). 

The  minisample  tape  output  flag  service  routine: 

1.  Sets  pointers 

2.  Retrieves  return  address 

3.  Jumps  to  return  address. 


Tape  Input  Flag  Service  Routine 

This  routine  sets  up  pointers  to  the  tape  input  buffers.  The 
buffer  contains  intermediate  data  used  by  the  tape  input  routine 
(see  p  27).  Once  the  pointers  are  set,  the  monitor  jumps  to  wherever 
the  program  left  off  in  the  tape  input  routine. 
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The  tape  input  flag  service  routine: 

1.  Sets  up  pointers 

2.  Picks  up  error  fl ags 

3.  Inputs  a  byte 

4.  Masks  out  upper  four  bits 

5.  Updates  checksum 

6.  Retrieves  return  address 

7.  Jumps  to  return  address. 


Function  Switch  Service  Routine 


This  routine  has  two  entry  points,  one  for  the  execute  switch 
(HSW4)  and  on  for  the  display  switch  (HSW5).  If  the  user  enters  at  the 
execute  switch  (HSW4)  and  the  display  switch  is  not  set,  no  action 
occurs.  If  the  user  enters  at  the  execute  switch  and  the  display  switch 
is  set,  a  write  is  performed.  If  the  user  enters  at  the  display  switch 
XHSW5)  and  the  execute  switch  is  not  set,  a  read  is  performed.  If  the 
user  enters  at  the  display  switch  and  the  execute  switch  is  set,  a  write 
is  performed.  All  writes  are  followed  automatically  by  a  read  so  that 
the  new  information  can  be  displayed  immediately. 

The  routine  reads  the  position  of  the  function  switch,  combines  it 
with  the  position  of  the  shift  switch,  and  determines  which  entry  in  the 
function  table  will  be  selected.  The  entry  is  the  address  of  the 
routine  to  be  executed. 

If  the  user  enters  at  the  execute  switch  (HSW4),  the  routine  exe¬ 
cutes  Steps  1  through  8  and  then  continues  at  Step  5;  if  the  user  enters 
at  the  display  switch  (HSW5),  the  routine  executes  Steps  4  and  5  and 
then  continues  at  Step  6. 

The  function  switch  service  routine: 

1.  Tests  for  display  switch  depressed: 

a.  If  not  depressed,  returns  to  switch  testing  routine. 

b.  If  depressed,  continues  routine. 

2.  Sets  pointer  to  function  write  table. 

3.  Jumps  to  Step  5. 


4.  Checks  for  execute  switch  depressed: 

a.  If  depressed,  jumps  to  Step  1  to  do  a  write. 

b.  If  not  depressed,  continues  routine. 

5.  Sets  pointer  to  function  read  table. 

6.  Checks  shift  switch  position: 

a.  If  in  the  black  position,  no  action. 

b.  If  in  the  white  position,  increases  the  function  pointer  by 
16  locations. 

7.  Retrieves  address  of  function  to  be  executed  for  the  table. 

8.  Jumps  to  that  address. 


Subroutine  Call  and  Return  Routines 


Normal  subroutine  calls  for  this  computer  store  the  return  address 
in  the  first  location  of  the  subroutine.  Since  this  microprogram  is 
stored  in  read-only  memory,  the  normal  subroutine  call  will  not  work. 
Therefore,  a  routine  is  called  in  read/write  memory  which  replaces  the 
original  computer  subroutine  call  instruction.  Unlike  the  computer's 
subroutine  call  instruction  (in  which  the  destination  address  was  part 
of  the  instruction),  the  new  subroutine  call  instruction  is  followed  by 
the  destination  address. 

When  the  program  requires  a  subroutine  call,  it  executes  a  computer 
subroutine  call  to  read/write  memory  where  the  new  call  instruction  is 
located.  A  return  address  is  saved  in  the  first  location.  This  return 
address  is  placed  on  a  stack  to  allow  a  nesting  of  the  subroutines.  The 
routine  then  picks  up  the  destination  address  following  the  call  and 
jumps  to  that  address. 

To  exit  a  subroutine,  the  original  computer  instruction  is  simply 
an  indirect  jump  which  uses  the  subroutine's  first  location  as  the 
operand  address.  This  microprogram  implements  a  return  instruction 
which  retrieves  the  return  address  off  the  stack  and  jumps  to  that 
address. 

The  subroutine  call  routine: 


1.  Jumps  to  the  rest  of  the  routine  stored  in  read-only  memory 

2.  Saves  accumulator  in  a  temporary  location 
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3.  Decrements  stack  pointer 

4.  Picks  up  return  address 

5.  Increments  the  return  address 

6.  Pushes  the  return  address  on  the  stack 

7.  Picks  up  destination  address 

8.  Restores  accumulator 

9.  Jumps  to  destination  address. 

The  subroutine  return  routine: 

1.  Saves  the  accumulator  in  a  temporary  location 

2.  Pops  return  address  from  stack 

3.  Increments  the  stack  pointer 

4.  Restores  accumulator 

5.  Jumps  to  return  address. 


Tape  Input  Service  Routine 

This  routine  is  an  absolute  binary  loader  subroutine  used  to  load 
programs  or  data  into  the  read/write  memory.  Data  may  be  loaded  into 
any  field  of  memory  (but  not  across  field  boundaries).  Programs  can  be 
loaded  anywhere,  but  can  only  be  executed  in  field  0.  The  monitor  is 
currently  set  up  with  1024  words  of  read/write  memory  starting  at  field 
0,  Loc  0000.  Because  the  switch  testing  routine  and  important  program 
pointers  are  located  in  low  memory,  nothing  should  be  loaded  below  Loc 
LDNBOT  (address  0572g).  The  highest  address  available  is  limited  by  the 
presence  of  the  tape  input  routine  to  Loc  VLOPG  (address  1642„).  It  is 
acceptable  to  write  data  over  the  autocal ibration  routine  instructions 
located  at  AUTOCM  and  up  (address  130 0g),  since  autocal ibration  and  test 
programs  are  never  used  simultaneously. 

The  routine  expects  a  leader,  a  start  address  with  field,  the 
number  of  words  to  transfer,  the  data,  and  finally,  an  eight-bit  trun¬ 
cated  checksum.  As  characters  are  read  in,  the  last  error  detected  is 
saved.  The  possible  errors  are  parity,  framing,  and  overrun.  Except 
for  saving  the  error  status,  errors  are  ignored  during  reading.  Charac¬ 
ters  are  always  processed. 


When  the  leader  is  detected,  the  routine  turns  off  the  display. 

The  display  remains  dark  during  data  transfer.  At  the  completion  of  the 
data  transfer,  the  computed  eight-bit  checksum  is  compared  to  the 
eight-bit  checksum  read,  the  display  is  turned  on,  and  the  result  of  the 
checksum  comparison  is  displayed.  If  the  display  reads  zero,  then  no 
errors  were  detected.  If  the  display  does  not  read  zero,  there  was  an 
error  and  the  tape  must  be  reread. 

The  tape  input  service  routine: 

1.  Performs  initial ization: 

a.  Energizes  the  tape  motor  control  relay. 

b.  Enables  tape  input  flag  test. 

c.  Clears  UART  data  ready  flag. 

d.  Sets  leader  character  counter  to  -4. 

2.  Detects  leader: 

a.  Reads  a  character  from  UART. 

b.  Compares  character  with  377Q : 

(1)  If  not  377g,  goes  to  Step  Id. 

(2)  If  377g,  advances  counter  and  continues. 

c.  Compares  counter  with  4: 

(1)  If  not  4,  goes  to  Step  2a. 

(2)  If  4,  continues. 

3.  Detects  synch  byte: 

a.  Reads  a  character  from  UART. 

b.  Counts  the  number  of  binary  1  s: 

(1)  If  greater  than  3,  goes  to  step  3a. 

(2)  If  less  than  or  equal  to  3,  continues. 

4.  Initializes  data  transfer: 

a.  Turns  off  display. 

b.  Sets  checksum  to  zero. 
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c.  Sets  error  status  buffer  to  zero. 

d.  Sets  address  of  error  to  zero. 

5.  Reads  memory  field. 

6.  Reads  starting  address. 

7.  Reads  finish  address. 

8.  Reads  number  of  words  to  transfer. 

9.  Reads  data  while  computing  running  checksum. 

10.  Reads  checksum. 

11.  Completes  data  transfer: 

a.  Displays  low  order  eight-bit  checksum. 

b.  Turns  off  tape  recorder. 

c.  Turns  on  display. 

d.  Disables  tape  input  flag  test. 

e.  Returns  to  switch  testing  routine. 
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y  Ffenr  7S  not  possi- 


30 


The  data  transmission  process  continues  until  all  stored  data  are 
transmitted.  The  monitor  microprogram  then  puts  the  calculator  on 
standby.  When  more  data  are  received,  transmission  resumes.  The  data 
are  fully  buffered  by  the  monitor  in  the  event  data  transmission  to  the 
calculator  is  slower  than  data  collection.  Data  transmission  can  be 
stopped  at  any  time  by  momentarily  depressing  the  print  switch. 


Because  of  timing  restrictions  in  the  monitor,  a  100  ms  delay  must 
be  programmed  after  each  calculator-read  operation  to  guarantee  recogni¬ 
tion  by  the  monitor.  The  calculator  program  to  read  the  monitor  should 
be: 

Group  I 


Recall ,  fool 
Store,  f~06~| 

Alpha,  fix). fool 


Reads  the  monitor 
Saves  value 
Generates  tt 


Ln 


Takes  tt’s  natural  log 


Cl r  displ ay 


Throws  values  away; 
100  ms  delay  complete 


Information  on  program  pulses  used  to  operate  the  programmable  cal¬ 
culator  is  given  in  Appendix  A. 


Data  Output  Tape  Recorder 

The  data  output  tape  recorder  can  be  any  reel-to-reel  or  cassette 
recorder  having  a  bandwidth  of  at  least  6  kilohertz  (kHz).  A  special 
interface  is  required  to  convert  the  parallel  digital  data  from  the  mon¬ 
itor  to  serial  data  to  a  frequency-shift  modulated  tone  signal  suitable 
for  recording.  The  connections  required  are  shown  in  Table  3.  The 
schematic  is  the  same  as  shown  in  Volume  II,  p  138  (Board  18),  except 
that  the  common  bus  for  transmit  and  receive  has  been  separated.  The 
transmit  section  takes  parallel  data  from  the  monitor  and  converts  it  to 
serial  data.  The  receive  section  converts  the  serial  data  back  to 
parallel  data  and  is  used  with  a  computer.  The  transmission  rate  is  300 
baud. 


The  interface  from  the  computer  to  the  cassette  will  have  error 
detection  lines,  control  lines,  and  data  lines  (Figure  2,  Table  4). 
Parity  error,  overrun  error,  and  framing  error  are  detectable  during  the 
read.  No  errors  are  detectable  during  a  write.  The  error  lines  go  high 
when  an  error  is  detected. 


t 

; 


I 
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Overrun  error  occurs  when  the  user  is  late  in  reading  the  data  and 
the  interface  has  completed  reading  the  next  word.  The  old  data  are 
lost  when  the  line  goes  high. 

Framing  error  occurs  when  the  interface  is  unable  to  find  a  stop 
bit.  This  can  be  caused  by  an  extra  start  bit  or  a  dropped  data  bit. 


Parity  error  occurs  when  the  parity  of  the  data  does  not  match  the 
parity  bit. 

The  control  lines  are  cassette  on/off,  data  ready  and  data 
accepted,  print,  and  transmitter  buffer  empty  (TBRE).  Cassette  on/off 
enables  and  disables  a  relay,  thus  turning  the  cassette  recorder  on  and 
off.  When  it  is  high,  the  cassette  is  on:  when  it  is  low,  the  cassette 
is  off.  Data  ready  is  set  high  by  the  interface  when  it  has  read  a 
character.  Data  accepted  is  pulsed  low  by  the  user  when  he/she  has  read 
the  data  line.  This  then  clears  the  data-ready  line.  Print  is  pulsed 
low  by  the  user  when  the  data  are  ready  to  be  written.  TBRE  goes  high 
when  the  data  have  been  transmitted  to  the  cassette.  The  leading  edge 
of  print  clears  TBRE. 


Data  are  stored  on  the  cassette  as  a  bit  stream  using  Kansas  City 
standards.1  The  format  of  the  tape  is  a  leader,  synch  bytes,  and 
records  (Figure  3).  The  leader  consists  of  16  bytes  of  377g,  but  only 
four  need  to  be  detected.  Next  comes  two  synch  bytes,  13g  and  320„ 
(Figure  4).  The  records  are  bit  streams  64  bits  long  and  consist  of  51 
bits  of  data,  12  bits  of  error  correcting  code,  and  1  bit  odd  parity 
(Figure  5).  The  error  correcting  code  is  a  cyclic  code  with  the  follow¬ 
ing  polynomial: 


.12 


+  X10  +  Xf 


X5  +  X4 


+  r  +  1. 


The  type  of  data  used  determines  the  data  format  on  the  tape.  Fig¬ 
ure  6  shows  the  format  for  stored  data  as  written  to  tape.  Table  5 
shows  the  detailed  information  for  the  header  of  these  data  including 
the  permissible  range  of  numbers.  Table  6  shows  the  details  of  a  block 
of  memory  data  and  Table  7  shows  the  details  of  an  Ldn  block  of  memory 
data.  Table  8  shows  details  of  a  zero  block  which  terminates  a  section 
of  data.  Table  9  describes  the  details  of  a  line  feed. 

The  cassette  tapes  have  a  slightly  different  format.  The  arrange¬ 
ment  of  the  tape  is  shown  in  Figure  7;  details  are  given  in  Table  10 


Mini  sample  Tape  Recorder  Interface 


The  mini  sample  tape  recorder  interface  box  allows  the  audio 


1  Manfred  Peschke  and  Virginia  Peschke,  "BYTE's 
Symposium,"  BYTE ,  Volume  1  Number  6  (February 


Audio  Cassette  Standards 
1976),  p  72. 
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cassette  recorder  to  be  used  to  record  threshold-exceeded  data.  The 
recorder  must  be  stereo,  with  one  channel  storing  the  sound  present  and 
the  other  storing  a  digital  time  code  used  to  correlate  data.  The 
schematic  diagram  for  this  interface  is  shown  in  Figure  8.  Note  that 
power  for  this  interface  and  for  the  tape  recorder  is  supplied  by  the 
monitor. 
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Table  1 


Output  Side  Connector  to  Datel  Printer 


Monitor 

J17 

48  Pin 

Side 

Cable  Color 

Datel 

Pri nter 

fetel 

Signal  Name 

Connector 

Code 

Connector 

Signal  Name 

PIO  36 

A 

WH/RED  &  CRG 

C2 

B 

15 

BCD 

1 

PIO  35 

B 

ORG/WH  &  BLUE 

Cl 

A 

10 

BCD 

2 

PIO  34 

C 

BLUE/WH  &  ORG 

Cl 

B 

15 

BCD 

4 

PIO  33 

D 

GRN/WH  &  BLK 

Cl 

B 

9 

BCD 

8 

PIO  32 

E 

ORG/BLK  &  WH 

C2 

B 

14 

BCD 

10 

PIO  31 

F 

WH/RED  &  BLUE 

Cl 

A 

9 

BCD 

20 

PIO  30 

G 

BLK/WH  &  GRN 

Cl 

A 

13 

BCD 

40 

PIO  29 

H 

BLUE/BLK 

Cl 

B 

8 

BCD 

80 

PIO  28 

J 

BLK/RED 

C2 

A 

15 

BCD 

100 

PIO  27 

K 

GRN 

C2 

B 

11 

BCD 

200 

PIO  26 

L 

BLUE/WH  &  BLK 

Cl 

A 

14 

BCD 

400 

PIO  25 

M 

WH/BLK  &  GRN 

C2 

B 

7 

BCD 

800 

PIO  24 

N 

RED/WH  &  BLUE 

C2 

A 

13 

BCD 

IK 

PIO  23 

P 

RED/BLK  &  GRN 

C2 

B 

10 

BCD 

2K 

PIO  22 

Q 

GRN/BLK  &  ORG 

Cl 

A 

15 

BCD 

4K 

PIO  21 

R 

ORG/BLK 

C2 

A 

1 

BCD 

8K 

PIO  20 

S 

BLK 

Cl 

A 

12 

BCD 

10K 

PIO  19 

T 

BLK/GRN  &  RED 

C2 

B 

8 

BCD 

20K 

PIO  18 

U 

RED/WH 

Cl 

B 

10 

BCD 

40K 

PIO  17 

V 

GRN/WH  S  BLUE 

C2 

B 

2 

BCD 

80K 

PIO  16 

w 

WH/GRN  &  RED 

Cl 

A 

11 

BCD 

100K 

PIO  15 

X 

WH/BLK  S  RED 

C2 

A 

8 

BCD 

200K 

PIO  14 

Y 

RED/WH  &  BLK 

Cl 

A 

8 

BCD 

40  OK 

PIO  13 

Z 

GRN/BLK 

C2 

B 

1 

BCD 

80  OK 

PIO  12 

a 

RED 

Cl 

A 

6 

DEC. 

PT.  1 

PIO  11 

b 

WH 

Cl 

A 

7 

DEC. 

PT.  2 

PIO  10 

c 

ORG 

Cl 

B 

6 

DEC. 

PT.  3 

PIO  9 

d 

GRN/WH 

Cl 

A 

1 

DEC. 

PT.  4 

PIO  8 

e 

BLUE/RED  &  CRG 

Cl 

B 

2 

DEC. 

PT.  5 

PIO  7 

f 

BLK/ORG  &  RED 

Cl 

B 

3 

DEC. 

PT.  6 

PIO  6 

g 

ORG/GRN 

Cl 

B 

1 

minus  sign 

PIO  5 

h 

BLK/WH  &  RED 

Cl 

A 

5 

pi  us 

sign 

Print 

z 

SHIELDED  WIRE 

Cl 

B 

14 

print-advance 

Data  request 

t 

ORG/BLUE  &  RED 

C2 

B 

12 

busy 

Logic  ground 

u 

GRN/RED  &  (EG 

Cl 

A 

4 

logic  ground 

Logic  ground 

V 

CRG/RED 

C2 

B 

5 

logic  ground 

+5  V 

X 

WH/BLK  &  BLUE 

Cl 

B 

13 

+5  V 

C2 

B 

13 
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Table  1  (Cont'd) 


J17 

48  Pin  Datel 


Monitor 
Signal  Name 

Side 

Connector 

Cable  Color 
Code 

Pri  nter 
Connector 

Date! 

Signal  Name 

KEY  PRINT 

n 

BLUE/RED 

Cl  B 

5 

fry  print 

PSEL  2 

r 

WH/BLK 

GND 

extra 

PSEL  1 

s 

ORG/GRN  & 

BLK 

N.C. 

extra 

GND 

-4- 

Cl  B 

11 

chg.  data  pol . 

+5v 

-4- 

Cl  B 

7 

chg.  print  pol. 

+5v 

-4~ 

Cl  B 

4 

lead  0  suppress 

+5  v 

-4- 

Cl  A 

3 

no  print  advance 

+5  v 

-4- 

C2  B 

6 

test 

+5  v 

Cl  A 

2 

chg.  busy  pol . 

C2  B 

4 

out  of  paper 

35 


Table  2 

Output  Side  Connector  to  Wang 


Monitor 

Signal  Name 

J17 

48  Pin 

Side 

Connector 

Cable  Color 

Code 

36  Pin 

Wang  Connector 

Wang 

Signal  Name 

PIJ  36 

A 

WH/RED  &  CRG 

13 

BCD 

1 

PIO  35 

B 

ORG/WH  &  BLUE 

14 

BCD 

2 

PIO  34 

C 

BLUE/WH  &  CRG 

15 

BCD 

4 

PIO  33 

D 

GRN/WH  &  BLK 

16 

BCD 

8 

PIO  32 

E 

ORG/BLK  &  WH 

27 

BCD 

10 

PIO  31 

F 

WH/RED  &  BLUE 

28 

BCD 

20 

PIO  30 

G 

BLK/WH  7  &  GRN 

29 

BCD 

40 

PIO  29 

H 

BLUE /BLK 

30 

BCD 

80 

PIO  28 

J 

BLK/RED 

9 

BCD 

100 

PIO  27 

K 

GRN 

10 

BCD 

200 

PIO  26 

L 

BLUE/WH  &  BLK 

11 

BCD 

400 

PIO  25 

M 

WH/BLK  &  GRN 

12 

BCD 

800 

PIO  24 

N 

RED/WH  &  BLUE 

23 

BCD 

IK 

PIO  23 

P 

RED/BLK  &  GRN 

24 

BCD 

2K 

PIO  22 

Q 

GRN /BLK  &  CRG 

25 

BCD 

4K 

PIO  21 

R 

ORG/BLK 

26 

BCD 

8K 

PIO  20 

S 

BLK 

5 

BCD 

10K 

PIO  19 

T 

BLK/GRN  &  RED 

6 

BCD 

20K 

PIO  18 

u 

RED/WH 

7 

BCD 

40K 

PIO  17 

V 

GRN/WH  &  BLUE 

8 

BCD 

80K 

PIO  16 

w 

WH/GRN  &  RED 

19 

BCD 

100K 

PIO  15 

X 

WH/BLK  &  RED 

20 

BCD 

200K 

PIO  14 

Y 

RED/WH  &  BLK 

21 

BCD 

400K 

PIO  13 

Z 

GRN/BLK 

22 

BCD 

80  OK 

PIO  12 

a 

RED 

1 

BCD 

1M 

PIO  11 

b 

WH 

2 

BCD 

2M 

PIO  10 

c 

ORG 

3 

BCD 

4M 

PIO  9 

d 

GRN/WH 

4 

BCD 

8M 

PRINT 

X 

SHIELDED  WIRE 

18 

PRINT 

DATA  REQUEST 

t 

ORG/BLUE  &  RED 

31 

EXECUTE 

LOGIC  GROUND 

u 

GRN/RED  5  CRG 

32 

LOGIC 

GROUND 

LOGIC  GROUND 

V 

CRG/RED 

33 

LOGIC 

GROUND 

LOGIC  GROUND 

w 

BLK/WH  &  BLUE 

34 

LOGIC 

GROUND 

key  Print 

n 

BLUE /RED 

PRINT  SWITCH 

KEY  PRINT 

WINDW 

P 

BLUE/RED  &  GRN 

17 

SIGN 

SHIELD 

y 

SHIELD 

32 

LOGIC 

GROUND 

CHASSIS  DIGITAL 
GROUND 

q 

WH/RED 

36 

LOGIC 

GROUND 

PSEL  1 

s 

ORG/BLK  &  GRN 

DIGITAL  GND 

PSEL 

1 

Output  Side  Connector  to  Cassette  Interface 


Monitor 

Signal  Name 

JJ7 

48  Pin 
Side 

Connector 

50  Pin 

Cable  Color  Interface 

Code  Input  Connector 

44  Pin 

IART  Board 
Connector 

Cassette 
Interface 
Signal  Name 

PIO  1 

m 

RED/GRN 

34 

B 

RELAY 

PIO  12 

a 

RED 

43 

N 

TBR  1 

PIO  11 

b 

WH 

23 

M 

TBR  2 

PIO  10 

c 

ORG 

12 

L 

TBR  3 

PIO  9 

d 

CRN/WH 

14 

K 

TBR  4 

PIO  8 

e 

BLUE/RED  &  ORG 

3 

J 

TBR  5 

PIO  7 

f 

BLK/ORG  &  RED 

38 

H 

TBR  6 

PIO  6 

g 

ORG/GRN 

11 

F 

TBR  7 

PIO  5 

h 

BLK/WH  &  RED 

39 

E 

TBR  8 

PRINT 

z 

SHIELDED  WIRE 

36 

V 

TOUT 

DATA  REQUEST 

t 

ORG/BLUE  &  RED 

15 

R 

TBRE 

+5  V 

X 

WH/BLK  &  BLUE 

26 

+5  V 

GROUND 

u 

GRN/RED  &  ORG 

41 

GROUND 

GROUND 

V 

ORG/RED 

37 

GROUND 

GROUND 

w 

BLK/WH  &  BLUE 

17 

GROUND 

SHIELD  GROUND 

y 

SHIELD 

28 

GROUND 

CHASSIS  GROUND 

q 

WH/RED 

32 

GROUND 

PSEL  2 

r 

WH/BLK 

47 

GROUND 

PSEL  1 

s 

ORG/BLK  &  GRN 

8 

GROUND 

KEY  PRINT 

n 

BLUE/RED 

19 

PRINT  SWITCH 

C 

D 

TAPE 

RECORDER 

MOTOR 

Table  4 


Cassette  Computer  Interface  Signals 


READ 

0  L  DATA  READ  1 

0  L  DATA  READ  2 

0  L  DATA  READ  3 

0  L  DATA  READ  4 

0  L  DATA  READ  5 

0  L  DATA  READ  6 

0  L  DATA  READ  7 

0  L  DATA  READ  8 

I  L  CASSETTE  ON 

0  L  DATA  READY 

1  L  uA!  AAllepied  (TITfl 

0  L  PARITY  ERROR 

0  L  OVERFLOW  ERROR 

0  L  FRAMING  ERROR 


1  »  LSB 


8  =  MSB 


WRITE 

1  L  DATA  WRITE  1 

I  L  DATA  WRITE  2 

I  L  DATA  WRITE  3 

I  L  DATA  WRITE  4 

I  L  DATA  WRITE  5 

I  L  DATA  WRITE  6 

I  L  DATA  WRITE  7 

I  L  DATA  WRITE  8 

I  P  PRINT 

0  L  TBRE  (TRANSMITTER  BUFFER 

TO  AND  FROM  COMPUTFR 
*  In  to  Interface 
0  =  Out  of  Interface 
L  =  Level  Data 
P  =  Pulse  Data 


1  =  LSB 


EMPTY) 
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Word* 

Table  5 

Header 

Name 

Descri ption 

1 

Line  Feed 

0 

2 

(Five  words  of  zero) 

0 

3 

0 

4 

0 

5 

0 

6 

Day  of  year 

0  to  364 

7 

Hour 

0  to  23 

8 

Mi nutes 

0  to  59 

9 

Serial  number 

GGUU  (GG  =  group  number 

10 

Mode  number 

UU  =  unit  number) 

2  to  9 

11 

accumulation  time 

Minutes 

1  to  999  (minutes  or 

12 

Tenths  of  a  second 

seconds  must  be  zero) 

1  to  999 

13 

Number  of  channel s 

1  to  2 

14 

Cal ibrator  level s 

Channel  1 

605  to  1604  dB 

15 

Channel  2 

605  to  1604  dB 

16 

Gain  constant 

Channel  1 

-799  to  799  dB 

17 

Channel  2 

-799  to  799  dB 

18 

Peak  detector  Channel  # 

1  or  2 

19 

Threshold  level 

0  to  182  or 

800  to  982  dB 

(If  800  to  982  night 

factor  suppressed.) 


20 

Mini  Sample 

On  time 

1 

to 

999  s 

21 

Total  time 

1 

to 

999  min 

22 

Format  of  data  stored 

0 

to 

7777  octal 

23 

Line  feed 

0 

24 

(five  words  of  zero) 

0 

25 

0 

26 

0 

27 

0 

*A11  words  are  12  bits  long;  all  decibels  are  to  tenths  (e.q.,  60.5  dB 
is  605  dB). 
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Table  6 


Block  Data  Format 


Word* 


Name 


Description 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 
13 


Block  number 
Channel  1  level 
Channel  2  level 
Peak 

Sample  length 
Channel  1  gain 
Channel  2  gain 
Time 

Line  feed 

(Five  words  of  zero) 


0  to  1920  dB 
0  to  1920  dB 
0  to  1920  dB 

-960  to  960  s  (in  decibels) 
-799  to  799  dB 
-799  to  799  dB 
HHMM  (HH  =  hour;  MM 
=  minutes) 

0 

0 

0 

0 

0 


*  All  words  are  12  bits  long;  all  decibels  are  to  tenths  (e.q. 
192.0  dB  is  1920  dB). 


Table  7 

Ldn  Data  Format 


f 

i 


* 

i 


Word* 


Name 


Description 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

1? 

13 

14 


Block  number 
Channel  1  L  , 

Channel  2  L™ 
Duration  day11 
Duration  night 
Channel  1  L  . 

Channel  1  La 
Channel  2 
Channel  2  L^ 

Line  feed  (five  words 
of  zero) 


0  to  1920  dB 
0  to  1920  dB 
0  to  1920  dB 
0  to  1920  dB 
0  to  1920  dB 
0  to  1920  dB 
0  to  1920  dB 
0  to  1920  dB 
0 

0 

0 

0 

0 


♦All  words  are  12  bits  long;  all  decibels  are  to  tenths  (e.g., 
192.0  dB  is  1920  dB);  negative  numbers  are  2's  complement. 
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Jx 


Table  8 


Word* 

1 


Zero  Block  Format 

Name  Value 

Block  Number  0 


Table  9 

Line  Feed  Format 


Word* 


Name 


Val  ue 


1 

2 

3 

4 

5 


(Line  0 

feed  0 

all  0 

zeros)  0 

0 


*A11  words  are  2  bits  long. 


Word 

1 

2 


Table  10 
Time  Data 


MDlfL  Description 

Serial  number  GGUU  (GG  =  group  number; 

UU  =  unit  number) 

Block  number 
High 

Low 

Day  of  the  year  0  to  364 

Hours  +  minutes  HHMM 
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Figure  5.  Record  format 


Figure  6.  Stored  data  format. 


s  a 

Y  Y 
N  T 
C  E 


L 

s  a 

L 

ea 

% 

Y  Y 

N  T 

C  E 

H 

\ 

tA 

_L 

\ 

Figure  7.  Threshold  data. 


Figure  8.  Schematic  for  minisample  tape  recorder  interface. 
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APPENDIX  A: 


PROGRAM  PULSE  AND  DATA  FORMATS 


Display  Codes 


For  Wang 

10  =  . 

For  H-P: 

10  =  Test 

11  =  = 

11  =  blank 

12  =  4 

12  =  blank 

13  =  5 

13  =  minus  sign 

14  =  t 

14  =  blank 

15  =  blank 

15  =  blank 

Program 

3ul ses 

Write 

6600 

SEC 

Wri  te 

6601 

MIN 

Wri  te 

6602 

THSET 

Write 

6603 

SELCHAN 

Wri  te 

6604 

LODIS 

Wri  te 

6605 

HIDIS 

Write 

6606 

DATA  ACCEPTED 

Write 

6607 

MODE 

Wri  te 

6610 

OUTLO 

Positive  12-V  pulse 

Write 

6611 

OUTMI 

Positive  12-V  pulse 

Write 

6612 

OUTHI 

Positive  12-V  pulse 

Write 

6613 

BEGIN 

Positive  12-V  pulse 

Wri  te 

6614 

SAMPLE 

Positive  12-V  pulse 

Wri  te 

661 5 

OPRINT 

Positive  12-V  pulse 

Wri  te 

6616 

RTC  clear 

Positive  12-V  pulse 

Wri  te 

661  7 

TOUT 

Positive  5-V  pulse  to  UART 

Read 

6620 

EXTRA 

Read 

6621 

SWREG 

Negative  5-V  pul se 

Read 

6622 

FUNLO 

Negative  5-V  pulse 

Read 

6623 

FUNHI 

Negative  5-V  pulse 

Read 

6624 

OUTPUTD 

Negative  5-V  pul  se 

Read 

6625 

PEAKD 

Negative  5-V  pul se 

Read 

6626 

STATIN 

to  UART 

Read 

6627 

TIN 

to  UART 

Program  Accessible  Signal  Definitions 


THSET  Bd  9  HDX11  A2  A2,  A1  AO  are  range  bits 

HDX10  A1 
HDX9  AO 

HDX9  MSB  MSB  to  LSB  are  amplitude  bits 
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l 


HDX1  LSB+1 
HDXO  LSB 

SEC  Bd  11  sets  time  divider  to  1 

MIN  Bd  11  sets  time  divider  to  600 

MIN  and  SEL  cause  a  pulse  labeled  TIME  SET 

TIME  SET  Bd  11  HDX11  =  MSB  sets  count  for  BCD  divider  for  block  length 
HDXO  =  LSB* 

BEGIN  Bd  11  Causes  synch  pulse,  read  sam;  zeroes  72-bit 

accumulators  and  loads  time  down  counters; 
selects  which  data  are  to  be  read. 


SELCHAN  Bd 

11 

HDXO 

HDX1 

0 

0 

Channel  1 

0 

1 

Channel  2 

1 

0 

Time 

1 

1 

0 

Data  Accept 

Bd 

11 

Clears  data  ready 

OPR  I  NT 

Bd 

11 

1  ms  PRINT  to  printer  connector 

OUTLO,  0UTM1D,  0UTH1  LOUTLO,  LOUITMID,  LOUTHI 

Bd  11  and  Bd  12  active  low  pulse;  1  =  latch  0  =  transmit  data 
(see  wiring  list  for  printer) 

RTC  Bd  16  Real  time  clock  (1  s)  flag 

RTC  Clear  Bd  16  Clears  real  time  clock  flag 

MODE  Bd  18  HDX0-HDX3  MODE  SELECT 

HDX4-  HDX5  FIELD  SELECT 
Bd  16  HDX8  STANDBY  LED 

HDX9  CALIBRATE  RELAY 

HDX10  MINITAPE  MOTOR 

HDX11  VDISPLAY 


LODIS  Bd  16  HDX11 

HDX10  No  connection 

HDX9 

HDX8 


HDX7  HDX3 

HDX6  LSD+1  HDX2 
HDX5  HDX1  LSD 

HDX4  HDXO 


HIDIS  Bd  16  HDX11  Decimal  point  (DP)  MSD  HDX7 

HDX10  DP  MSD-1  HDX6  MSD 

HDX9  DP  LSD+1  HDX5 

HDX8  DP  LSD  HDX4 


HDX3 

HDX2  MSD-1 

HDX1 

HDXO 


OUTPUT  D  Bd  15  DX11  MSB 

•  •  •  •  •  • 
DXO  LSB 


Data  2  from  OSR  mux 


-  - 


SWREG 


FUNLO 


FUNHI 


Bd  16  DX11  MSBo 

0X0  LSB 1 


12-bit  switch  reg 


Bd  15 


0X11  SEL/LEQ  for  display 
0X10  PSEL  1 
0X9  PSEL  2 

DX8  threshold  exceeded  flag 

0X7  RTC  flag 

0X6  SINGLE 

DX5  KE  V PR  I  NT 

DX4  KEYSAMPLE 

DX3  KEYSTART 

DX2  SHIFT  F 

0X1  DATA  REQUEST  (printer) 
DXO  DATA  READY  (OSR) 


H  LEQ,  L=SEL 
H  =  1 
H  =  1 
H  =  1 
H  =  1 

L  =  SINGLE,  H  =  DUAL 
H  =  1 
H  =  1 
H  =  1 

H  =  red ,  L  =  B 1 ack 
H  =  1 
H  =  1 


Bd  18 

0X11 

Serial  number  MSB 

DX10 

0X9 

DX8 

DX7 

# 

0X6 

Serial  number  LSB 

Bd  16 

DX5 

DISPLAY  SWITCH 

DX4 

EXECUTE  SWITCH  (F4) 

DX3 

F3 

DX2 

F2 

0X1 

FI 

DXO 

FO 

TOUT  Bd  17 

0X7  TBR8 

•  •  •  •  •  • 

DXO  TBR1 

Transmit  data 

TIN  Bd  17 

0X7  RBR8 

DXO  RBR1 

Receive  data 

STATIN  Bd  17 

DX7  DR 

Received  data  ready 

DX6  TBRE 

Transmit  buffer  empty 

DX5  PE 

Parity  error 

DX4  FE 

Framing  error 

DX3  OE 

Overrun  error 

PEAKD  Bd  17 

DX11  A2 
DX10  A1 

DX9  AO 

A2,  Al,  AO  are  range  bits 

DX8  MSB 

DXO  LSB 

MSB  through  LSB  are  magnitude  hits 
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Out£ut_ 
OUT  LO 


to  50 


^L£° Unector 


OUTMI 


OUT  HI 


PIO  36 
35 
34 


Date| 

BCD  1 
2 


33 

A 

8 

PIO  32 

32 

BCD  20 

30 

20 

89 

pI0  28 

40 

80 

87 

BCD  200 

MSB 

86 

200 

25 

400 

LS  8 

PIO  24 

800 

23 

BCD  2000 

22 

2000 

22 

PIO  20 

4000 

8000 

19 

BCD  20k 

18 

20k 

17 

PIO  16 

40k 

80k 

15 

BCD  200k 

14 

200k 

13 

PIO  22 

400k 

800k 

11 

Dec  pt  2 

10 

Pt  2 

7 

PIO  8 

Pt  3 

Pt  4 

7 

Pt  5 

6 

Pt  6 

5 

PIO  4 

3 

2 

minus  Sfgn 

PJus  sign 

oprint 
PUNLO 
PUN  LO 


DA™  REQUEST 


PRINT 


Power  on 
Relay 

4  AD  VANCE 
BUSY 
KEYPRIhj 


BCD  1 
2 
4 
8 

BCD  20 
20 
40 
80 

BCD  200 
200 
400 
800 

BOD  2000 
8000 
4000 
8000 

BCD  20k 
80k 
40k 
80k 

BCD  200k 
800k 
400k 
800k 

BCD  2M 
8M 
4M 
8M 


.Casseti 


PRINT 

execute 


Motor  on 
Pel  ay 
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Sign 


appendix  b 


listing  of 

THE  MONITOR 


PROGRAM  WHICH  CONTROLS 

characteristics 


/ 

expunge 

/ 

/ 

/MAJOR  OP  CODES 

AND=0000 
TAD=1000 
ISZ=2000 
DCA=3000 
J  MS =-4000 
■IMP =5000 
/ 

/ 

/ 

/ 


/CLEAR  SYMBOL  TABLE 


/GROUP  1  MICROINSTRUCTIONS 


NOP =7000 
CLA=7200 
CLL=7J00 
CMA =7040 
CML=7020 
RAR=7O10 
RTR=7012 
RAL=7004 
RTL=7006 
I AC =7001 
BSW=7002 
/ 

/ 

/COMBINED  GROUP 


CIA=704J 

STA=7240 

STL=7120 

GLK=7204 


/ 

/ 

/ 


N 1 =730 1 
*2=7305 
K3=7325 
K4=7307 
Kf>=7327 

K4OO0=7330 

*0000=7333 

KM3=7346 

KM2=7344 


/ 

/ 

/ 


MICROINSTRUCTIONS 

/CMA  IAC 
/CL A  CMA 
/CLL  CML 
/CLA  RAL 


/CLA 

/CLA 

/CLA 

/CLA 

/CLA 

/CLA 

/CLA 

/CLA 

/CLA 


CLL  IAC 
CLL  CML 
CLL  IAC 
CLL  CML 
CLL  CML 
CLL  CML 
CLL  CMA 
CLL  CMA 


RAL 

IAC  RAL 
RTL 

IAC  RTL 
RAR 

IAC  RTR 

RTL 

RAL 


/GROUP  2  MICROINSTRUCTIONS 

SMA  =  7500 
SZA=7440 
SPA=7510 
SNA =7450 
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SNL=7420 
SZL=7430 
SKP=7410 
HLT = 7402 

/ 

/ 

/ 

v?  microinstructions 

"yl>- I 
MQA=7501 
SVP=7S2 1 
CAM=762 I 
ACL =7701 
/ 

/ 

/PROCESSOR  IOT’S 
SKON=6000 
ION=600 1 
IOF=6002 
SRQ=6003 
GTF=6004 
RTF=600S 
CAF=6007 
/ 


/  I/O  DEFINITIONS 

/ 

KSF=601 1 
RRB=60l2 
RFC=6014 
PSF=6021 
PLS=6026 
/ 

/ 

SEC =6600 

MIN=6601 

THSET=6602 

SELCHN  =6603 

LODIS=6604 

HIDIS=660S 

GOTDAT=6606 

SELMD=6607 

/ 

OUTI.O=6610 

OUTMI =661 1 

0UTHU6612 

BEGIN=66J3 

SAMPLE=6614 

0PRINT=6615 

CLCF=66 16 

TOUT=6617 

/ 

SWREG=662 1 
FUNL0=6622 
FUNHI =6623 
0UTREG=6624 
PEAK =6625 
STATIN =6626 
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TIN=6627 

/ 

/ 


/ 

/DEFINITION  TABLE 
TTI=610O 
TTO=6 10 1 
TTIS=6102 
TT0S=6 103 
TTRA=6 104 
TTWA=6 105 
TTIRS=6106 
TTIRC=6107 
/6 1 10  NOT  USED 
TT0C=61 1 1 
TTISB=61 12 
/6 1 13  NOT  USED 
TTWV=61 M 
TTWB=6 1 15 
/6116  NOT  USED 
/6117  NOT  USED 
/ 

/ 

/ 

/ 

/MODE  DEFINITIONS 
VDIS=4000 
MINITA=2000 
CALREL= 1000 
STNBLD=400 
STRTLD=200 
PKCHN= 100 
FLDSEL=60 
MODNUM=  17 
/ 

FIXTAB 

/ 

/ 


/READ1  READ  TTI  BUFFER,  RESET  FLAG 

/WRITE  1  LOAD  TTO  BUFFER,  RESET  FLAG 

/SKIP  1  SKIP  ON  TTI  FLAG,  DATA  RECEIVED 

/SKIP2  SKIP  ON  TTO  FLAG,  TRANSMIT  BUFFER  EMPTY 

/RCRA  READ  CONTROL  REG  A 

/WCRA  WRITE  CONTROL  REG  A 

/SFLG1  SET  READER  RUN  RELAY 

/CFLG1  CLEAR  READER  RUN  RELAY 

/WRITE2  LOAD  UART  CONTROL  BITS 
/SKIP3  SKIP  ON  UART  START  BIT  DETECTED 


/WVR 

/WCRB 


WRITE  VECTOR  REGISTER 
WRITE  CONTROL  REG  B 


/KEEP  IT  FOREVER 
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FIELD  1 

/ 


/POINTERS  DURING  INTERRUPT  SERVICE  ROUTINE 

/USED  MAINLY  BY  ADDE  FOR  MULTIPLE  PRECISION  ARITHMETIC 

/TEMPORARY  REG  WITH  AUTO  INDEX 
/TEMPORARY  REG  WITH  AUTO  INDEX 
/TEMPORARY  REG  WITH  AUTO  INDEX 
/LDN  INPUT  POINTER 
/INPUT  POINTER 


/NEED  MORE  ROOM  FOR  PRINTER  POINTERS 
/BUFL*  (MEMTOP-BUFBEG)  /LEN 
/DUEL  IS  SET  DURING  INIT 


BULL* 1252 

/ASSUMES  BUFFER  AT  3777 

0034 

6526 

STORE, 

-BL'FL 

/LENGTH  OF  MEMORY  STORAGE  IN  BLOCKS 

0035 

0003 

LEN. 

3 

/NUMBER  OF  MEMORY  WORDS  PER  BLOCK 

0036 

6526 

INFI.O, 

-BUFL 

/INPUT  BUFFER  COUNTER 

0037 

0000 

XR  16, 

0 

/OUTPUT  POINTER 

0040 

6526 

OUTFLO, 

-BUFL 

/OUTPUT  BUFFER  COUNTER 

0041 

7777 

EMPTY, 

-1 

/BUFFER  STATUS  FLAG.  -1=EMPTY, 

/G=HAS  SOMETHING,  1  =Fl’LL 

/LDNSTR 

5J 

i 

1 

INIT 

LDNSTR* 

33 

0042 

7745 

I.DNST , 

-LDNSTR 

/LENGTH  OF  LDN  BUFFER  IN  BLOCKS 

0043 

0002 

I.DNLEN, 

2 

/NUMBER  OF  MEMORY  WORDS  PER  LDN  BLOCK 

0044 

7745 

LDN IN, 

-LDNSTR 

/LDN  INPUT  BUFFER  COUNTER 

0045 

0572 

LDN 16, 

LDNBOT 

/LDN  OUTPUT  POINTER 

0046 

774S 

LDNOT , 

-LDNSTR 

/LDN  OUTPUT  BUFFER  COUNTER 

0047 

7777 

LDNMT , 

/ 

SAVAC, 

-1 

/LDN  BUFFER  STATUS  FLAG 

0050 

0000 

0 

/SAVES  AC  DURING  INTERRUPT 

005 1 ' 

OOOG 

SAVLK , 
SAVMQ, 

0 

/SAVES  LINK  DURING  INTERRUPT 

0052 

0000 

0 

/SAVES  MQ  DURING  INTERRUPT 

0053 

0000 

SVSl'B, 

0 

/SAVES  STACK  CALL  DURING  INTERRUPT 

0054 

0000 

SVSUB1, 

0 

/SAVES  STACK  TEMP  DURING  INTERRUPT 

0055 

0000 

TEMI’3 , 

0 

/TEMPORARY  LOCATION  USED  BY  INTERRUPT 

0056 

0000 

MKMTOP , 

0 

/HOLDS  TOP  LOCATION  OF  DATA  MEMORY  (FIELD  ONE  ONLY) 

/I)  I  SPLAY  BUFFERS 

0057 

0000 

Cl!  1 , 

0 

/CHI  LEVEL 

0060 

0000 

C112, 

0 

/C1I2  LEVEL 

0061 

0000 

PK, 

0 

/PEAK  LEVEL 

0062 

0000 

TIME, 

0 

/TIME 

0063 

0000 

SMPIG, 

/ 

DFLO, 

0 

/IGNORE  DATA  DURING  SAMPLE  IF 
/=0  TAXI-  DATA,  =1  IGNORE 
/SIMILAR  TO  STANDBY  FOR  ONE  READING 

0064 

6526 

-BUFL 

/DUMP  BUFFER  COUNTER 

0065 

0000 

DX16, 

DLFLO, 

0 

/DUMP  ADDRESS  POINTER 

0066 

7745 

-LDNSTR 

/LDN  DUMP  BUFFER  COUNTER 

0010 

0000 

/PAGE 

•10 

INTI, 

0  DEFINITIONS 

0 

0011 

0000 

INT2, 

0 

0012 

0000 

INT3 , 

0 

0013 

0000 

XRT1, 

0 

0014 

0000 

XRT2, 

0 

0015 

0000 

XRT3, 

0 

0016 

0571 

LDN  17 

,  LDNBOT- 1 

0017 

7777 

XR  17, 

-1 

/ 

/ 

PRLEN*  12 
•22*PRLEN 
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0067 

0572 

DLX16, 

LDNBOT 

0070 

0000 

DTI  ME, 

0 

0071 

0000 

DUMPFL 

,  0 

0072 

0000 

DUMPT, 

0 

0073 

0000 

DUMPT 1 

/ 

.  0 

0074 

0000 

AUTOCT 

,  0 

0075 

0000 

AUTOFL 

,  o 

0076 

0000 

TSW3F, 

0 

0077 

0000 

TSW4F, 

0 

0100 

0000 

PRPNT , 

0 

0101 

0000 

TSW8F, 

/ 

/ 

0 

0102 

0000 

PRNTER 

/ 

.  0 

0103 

0000 

DATPNT 

.  0 

0104 

0000 

PRFH, 

B I  TOUT 

0 

=22 

TPSV=23 

l’RSTCT =24 

URCNT=25 

prri:m=26 

PRBYT=27 

PHI1YTC=30 

l'KPAH=31 

DAT0UT=32 

PRRET=33  • 

010S 

0000 

THRLK, 

0 

0106 

0000 

TFUN0, 

0 

0107 

0000 

TFUN1, 

/ 

/ 

0 

/I.DN  DUMP  ADDRESS  POINTER 

/HOLDS  TIME  FROM  BUFFER  DURING  DUMP 

/DUMP  TIMER 

/TEMPORARY  REGISTER  USED  BY  DUMP 
/TEMPORARY  REGISTER  USED  BY  DUMP 


/LOAD  FIELD 

/START  LOAD  ADDRESS 

/END  LOAD  ADDRESS 

/NUMBER  OF  WORDS  TO  TRANSFER 


/COUNT  FOR  AUTOCAL  TRIES 

/DATA  READY  FLAG  DURING  AUTOCALIBRATION 

/START  SWITCH  ON  FLAG.  FLAGS  NEEDED  TO  MAKE  SWITCH 

/POSITIVE  EDGE  TRIGGERED.  SAMPLE  SWITCH  ON  FLAG. 

/POINTER  TO  NEXT  PROCESS  TO  BE  CHECKED 

/THRESHOLD  FLAG  IS  BIDIRECTIONAL  EDGE  TRIGGERED 


/WIRED  PIN  ALPHA  4  ALPHA  T 
/IOT  READ  BIT  10  BIT  9 
/DEV  WIRED  IOT  READ 

/TH  00  II 

/DAT  01  01 

/WANG  10  10 

/SPARE  1  1  00 


/HOLDS  DATA  POINTER  DURING  PRINT 

/HOLDS  ADDRESS  IN  MASK  TABLE  DURING  PRINT 

/HOLDS  ADDRESS  OF  OUT  BIT  ROUTINES 

/HOLDS  DATA  WORD  DURING  PRINT 

/COUNTS  51  BITS  OF  DATA 

/COUNTS  12  BITS  PER  WORD 

/HOLDS  REMAINDER  POLYNOMIAL 

/BUILDS  OUTPUT  BYTE 

/COUNTS  8  BITS  PER  BYTE 

/HOLDS  PARITY  FLAG 

/TEMPORARY  STORAGE  AND  ALSO  USED  FOR  DECIMAL  POINT  FOR  PRINTER 

/USED  AS  POINTER  TO  RETURN  ADDRESS  BUFFER 

/HOLDS  BLOCK  NUMBER  FOR  MINISAMPLE  RECORDER 

/HAS  LO  FUNCTION  REGISTER 

/HAS  HI  FUNCTION  REGISTER 
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/ 

•114 

/ 


/ 

/SUBROUTINE  CALL  FOR  RON 

/ 


01  14 

0000 

SUB! , 

0 

/HAS  AC 

01  IS 

0000 

SUB, 

/ 

0 

/ 

/  •••• 

/ 

••  FROM  THIS 

POINT  TO  TSWF  WILL  BE  STORED  IN  PROM 

01 16 

5517 

/ 

PAGE0, 

JMP  I  ,*1 

01  17 

6652 

SUBX 

0120 

0467 

STACK, 

STK 

/STACK  POINTER 

0121 

6000 

MEM AD, 

6000 

/HOLDS  DEBUG  ADDRESS 

0122 

0003 

MEMFLD , 

3 

/HOLDS  DEBUG  FIELD 

0123 

6665 

1RETN, 

/ 

RETN 

/POINTER  TO  POP  ROUTINE 

/ 

GOSUB= JMS  SUB 

RETURN- 

JMF  I  I RETN 

DEFINE  CALL  XX 

< 

GOSUB 

> 

/ 

/ 

XX 

0124 

0000 

MEMFLG, 

0 

/BIT  MAP  FOR  MEMORY  AND  TAPE  RECORDER  CONTROL 

/BIT  11  *  STORE  DISPLAY  BVF  IN  MEMORY 

/BIT  10  *  USE  DISPLAY  BUFFER  TO  UPDATE  KCAL 

/BIT  9  *  PUT  ENERGY  BUFFER  IN  DISPLAY  BUFFER 

/BIT  8  *  PUT  DISPLAY  BUFFER  IN  ENERGY  BUFFER 

/BIT  7  *  PUT  DISPLAY  INTO  LD  OR  LN  BUFFER 

/BIT  6  *  PUT  DATA  INTO  DISPLAY  BUFFER 

/BIT  5  *  PUT  LD  AND  LN  IN  LDN  BUFFER  AND  MEMORY 

/BIT  3  =  TURN  ON  TAPE  RECORDER  WHEN  THRESHOLD  IS  EXCEEDED 

/BIT  2  *  DO  AUTOCAL 

/BIT  1  =  DO  CAL  FOR  KCAL I 

/BIT  0  =  DO  CAL  FOR  KCAL2 


012S  4512 

0126  4512 

0127  6414 

0130  OOOS 
0131  0017 

0132  0000 

0133  0000 


0134  0000 

0135  OOO0 
0136  3572 

0137  3572 


/ 

MODST-  VDIS  ?STNBLD  I PJCCHN  t 

MODE,  MODST 

SVMD,  MODST 

FORMAT,  6414 

RECON .  5 

RECOFF,  17 

D1SPCH,  0 

D1SFL,  0 


KCAL 1 ,  0 

KCAL2,  0 
RF.FLVt,  3572 
REFLV2,  3572 


12  /INITIAL  MODE  STATUS  WORD 
/HAS  MODE  STATUS  WORD 

/HAS  SAVED  MODE.  REMEMBERS  WHERE  WE  WERE 

/FLAGS  INDICATING  INFORMATION  STORED  IN  MEMORY  BLOCK 

/MINISAMPLE  ON  TIME  IN  SECONDS 

/MINISAMPLE  PERIOD  IN  MINUTES 

/CURRENT  CHANNEL  BEING  DISPLAYED 

/0-NONE ,  1  =CI1 1 ,  2-CU2,  3=TIME,  4*PEAK 

/0=NO  DATA  SET  BY  START  AND  SAMPLE 

/ 1 'DATA  DISPLAYED  SET  BY  DISUP 

/- I =DATA  READY  EOR  DISPLAY  SET  BY  INTSERV 

/CALIBRATION  CONSTANT.  ADD  TO 

/NUMBER  TO  GET  TRUE  VALUE. 

/HAS  CHI  CALIBRATION  LEVEL  IN  BINARY 
/CH2  CALIBRATION  LEVEL 
/3S.72  BINARY  IS  90.0  DB 
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0140 

0001 

/ 

TSEC, 

1 

/HAS  TENTHS  OF  SECONDS  IN  BCD  FORM 

0141 

0000 

TMIN, 

0 

/HAS  MINUTES  IN  BCD  FORM 
/IF  MIN=0,  MUST  BE  SEC 

0142 

0000 

CLSEC , 

0 

/SECONDS 

0143 

0000 

CLM1N, 

0 

/MINUTES 

0144 

0000 

CLHR , 

0 

/HOUR  OF  THE  DAY  <24  HOUR  CLOCK) 

0145 

0000 

CLDAY , 

0 

/DAY  OF  THE  YEAR 

0146 

0000 

THOLD, 

0 

/THRESHOLD  FOR  CHI  IN  BINARY 

0147 

0000 

THFLG, 

0 

/NEGATIVE  NUMBER  MEANS  SUPPRESS  10  DB  THRESHOLD 

/ 

/CHANGE  DURING  BLOCK  MODE  AT  NIGHT 

0150 

0247 

/ 

IDMP , 

TDMPX 

/POINTER  TO  DUMP  ROUTINE 

0151 

0247 

DMPX , 

TDMPX 

/POINTER  TO  RESET  DUMP  ROUTINE  TO  OFF 

0152 

2003 

SW0A, 

/ 

SVG 

/POINTER  TO  INTERRUPT  ROUTINE 

0153 

0354 

/ 

TEMPEX, 

TEMPE-1 

/SAVE  SPACE 

0154 

7500 

LOGTBL , 

/ 

LOGTAB 

/ 

/CONSTANT  TABLE 

/ 


0155 

7764 

KM  12, 

-14 

0156 

0010 

KD10, 

10 

0157 

0017 

KD 17 , 

17 

0160 

0020 

KD20 , 

20 

0161 

0077 

KD77 , 

77 

0162 

0144 

KD 144 , 

144 

0163 

0320 

KD320 , 

320 

0164 

7400 

KD7400 , 

7400 

0165 

7700 

KD7700, 

7700 

0166 

7760 

KD7760 , 
/ 

DMASK , 

7760 

/DOUBLE  DUTY  TABLE  AND  CONSTANTS 

0167 

4000 

KD4000 , 

4000 

0170 

2000 

KD200O , 

2000 

0171 

1000 

KD 1000 , 

1000 

0172 

0400 

KD40O , 

400 

0173 

0200 

KD200 , 

200 

0174 

0100 

KD 100 , 

100 

0175 

0040 

KD40 , 

40 

0176 

0000 

/ 

0 

/END  OF  TABLE 

/ 

GRPNO= 144 

/ 

/ 

/GROUP  NUMBER  FOR  CERL  - 

57 


/ 


/ 

•177 

/ 

/TIME  ELAPSED  FOR  TRIP  THROUGH  SWSET  IS  ABOUT  1.6  MS 

/ 


0177 

6622 

SWSET , 

FUNLO 

0200 

3106 

/ 

TSW0 , 

DCA 

TFUN0 

0201 

1075 

TAD 

AUTOFL 

0202 

7710 

SPA 

CLA 

0203 

7000 

NOP 

/ 

TSW0X, 

/ 

JMP 

I  TSW0A 

0204 

5210 

TSW1, 

JMP 

TSW1X 

/ 

K2 

0205 

0106 

AND 

TFUN0 

0206 

7640 

SZA 

CLA 

0207 

5740 

JMP 

I  TSW1A 

TSW1X, 

/ 


/CHECK 

START  SWITCH 

0210 

1106 

TSW3, 

TAD 

TFUN0 

021 1 

0156 

AND 

KD10 

0212 

7640 

SZA 

CLA 

0213 

5737 

JMP 

I  TSW3B 

0214 

3076 

TSW3X, 

/ 

TSW4, 

DCA 

TSW3F 

0215 

1106 

TAD 

TFUN0 

0216 

0160 

AND 

KD20 

0217 

7640 

SZA 

CLA 

0220 

5736 

JMP 

I  TSW4B 

0221 

3077 

TSW4X , 
/ 

TSW5, 

DCA 

TSW4F 

0222 

4274 

JMS 

DBNCE 

0223 

0040 

40 

0224 

0000 

0 

0225 

3704 

/ 

TSW7, 

SW5 

0226 

1 106 

TAD 

TFUN0 

0227 

0173 

AND 

KD200 

0230 

7640 

SZA 

CLA 

0231 

5735 

/ 

TSW8, 

JMP 

I  TSW7B 

0232 

1106 

TAD 

TFUN0 

0233 

0172 

AND 

KD400 

0234 

7640 

SZA 

CLA 

0235 

5733 

JMP 

I  TSW8B 

0236 

1101 

TAD 

TSW8F 

0237 

7640 

SZA 

CLA 

0240 

5734 

TSW8X, 

/ 

JMP 

I  TSV8C 

0241 

1132 

/ 

TDIS, 

TAD 

DISPCH 

0242 

7640 

SZA 

CLA 

0243 

1 133 

TAD 

DISFL 

/READ  FRONT  PANEL  SWITCHES 
/SAVE 

/IS  DATA  READY  FOR  USE  BY  AUTOCAL? 

/WHILE  IN  THE  INACTIVE  STATE 

/GO  DO  SOMETHING  WITH  AUTO  CALIBRATION 

/IGNORE  DURING  PRINTER  IDLE 
/TEST  FLAG  DURING  ACTIVE 

/FOUND  FLAG 

/TEST  FOR  START  SWITCH 

/CLEAR  EDGE  TRIGGER  FLAG 
/TEST  FOR  SAMPLE  SWITCH 

/CLEAR  EDGE  TRIGGER  FLAG 
/START/STOP  PRINT 

/REAL  TIME  CLOCK 
/CHECK  FLAG  BIT 

/GO  PROCESS  CLOCK 

/CHECK  THRESHOLD  FLAG 

/IS  IT  JUST  TURNED  OFF? 

/THIS  ALLOWS  NEGATIVE  EDGE  TRIGGER  TOO 


/DISPLAY  REQUEST? 

/NO.  SKIP 

/NEW  DATA  READY? 
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0244 

7710 

SPA  CLA 

0245 

5730 

TDISX, 

/ 

/ 

JMP  I  DISSET 

0246 

5550 

TDMP , 
TDMPX, 

/ 

JMP  I  IDMP 

0247 

5253 

TPOUT , 

/ 

JMP  TPOUTX 
STATIN 

0250 

0174 

AND  KD 100 

0251 

7640 

SZA  CLA 

0252 

5732 

TPOUTX, 

/ 

JMP  I  TOUTB 

0253 

5257 

TPIN, 

/ 

JMP  TP  I NX 
STATIN 

0254 

0173 

AND  KD200 

0255 

7640 

SZA  CLA 

0256 

5731 

JMP  I  TINB 

TP  I NX , 

/ 

/ 

/GET  FUNCTION  SWITCH 

/ 

0257 

1  106 

TFUN , 

TAD  TFUN0 

0260 

3107 

DC A  TFUN  1 

0261 

6623 

Fl'NB  I 

0262 

3106 

/ 

DCA  TFUN0 

0263 

4274 

HTSW4 , 

JMS  DBNCE 

0264 

0020 

20 

0265 

0000 

O 

0266 

6561 

/ 

HTSW5 , 

IINW4 

0267 

4274 

JMS  DBNCE 

0270 

fHW0 

40 

0271 

0000 

0 

0272 

6600 

/ 

HSW5 

0273 

5177 

JMP  SWSET 

/ 


/ 


/YES.  GO  UPDATE 

/POINTS  TO  DUMP  HANDLER  WHEN  ACTIVE 

/BYPASS  UNTIL  NEEDED 
/READ  TAPE  STATUS 
/TRANSMIT  STATUS 

/READ  TAPE  STATUS 
/BRING  IN  A  CHARACTER 

/IS  EXECUTE  SET? 

/IS  DISPLAY  SET? 
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.«r> .  W isa. 


/ 

/THIS  ROUTINE  DEBOUNCES  THE  SWITCHES 
/DEBOUNCE  FLAG  IS  -  FOR  COUNTING 


0274 

0000 

DBNCE , 

0 

0275 

1674 

TAD 

I  DBNCE 

/GET  BIT  FOR  THIS  CALL 

0276 

2274 

ISZ 

DBNCE 

/GET  SET  FOR  FLAG 

0277 

0106 

AND 

TFUN0 

/LOOK  AT  SWITCHES 

0300 

7640 

SZA 

CLA 

0301 

5306 

JMP 

DBNCB 

0302 

3674 

DCA 

I  DBNCE 

/CLEAR  SWITCH  FLAG 

0303 

2274 

DBEX, 

ISZ 

DBNCE 

0304 

2274 

ISZ 

DBNCE 

0305 

5674 

JMP 

I  DBNCE 

0306 

1674 

DBNCB , 

TAD 

I  DBNCE 

/SWITCH  BIT  SET.  TEST  FLAG 

0307 

7440 

SZA 

0310 

5313 

JMP 

DBNCC 

031 1 

1327 

TAD 

DBNCK 

/SET  UP  DEBOUNCE 

0312 

5302 

/ 

DBNCC , 

JMP 

DBEX- 1 

0313 

7700 

SMA 

CLA 

/ARE  WE  COUNTING? 

0314 

5303 

JMP 

DBEX 

/IGNORE  CONTI NOUS  ON 

0315 

2674 

ISZ 

I  DBNCE 

/KEEP  COUNTING 

0316 

5303 

/ 

JMP 

DBEX 

0317 

2674 

ISZ 

I  DBNCE 

/DONE.  SET  FLAG 

0320 

2274 

ISZ 

DBNCE 

0321 

1674 

TAD 

I  DBNCE 

0322 

3274 

DCA 

DBNCE 

0323 

3132 

DCA 

DISPCH 

/STOP  READOUT 

0324 

1151 

TAD 

DMPX 

/STOP  DUMP 

0325 

3150 

DCA 

1DMP 

0326 

5674 

JMP 

I  DBNCE 

/GO  PROCESS 

0327 

7754 

DBNCK, 

/ 

-24 

/ABOUT  .08  SEC 

0330 

7324 

/ 

DISSET, 

DISUP 

/UPDATE  DISPLAY  ROUTINE 

0331 

1702 

TINB, 

TPINH 

/ADDRESS  OF  TAPE  INPUT  HANDLER 

0332 

5242 

TOUTB, 

TAPOUT 

/ADDRESS  OF  TAPE  OUTPUT  HANDLER 

0333 

5054 

TSW8B , 

SW8 

/POINTER  TO  THRESHOLD  ROUTINE 

0334 

5200 

TSW8C, 

SW8L 

/POINTER  TO  THRESHOLD  OFF  ROUTINE 

0335 

4656 

TSW7B, 

SW7 

/POINTER  TO  CLOCK  SERVICE  ROUTINE 

0336 

3600 

TSW4B , 

SW4 

/POINTER  FOR  SAMPLE  SWITCH  ROUTINE 

0337 

3337 

TSW3B , 

SW3 

/START  SWITCH  HANDLER 

0340 

3250 

TSW1A, 

SW1 

/POINTER  TO  PRINTER  HANDLER 

0341 

1310 

TSW0A , 

AUTOCAL 

/POINTER  TO  AUTOCALIBRATION  ROUTINE 

0342 

1426 

AUT02 

/WAIT  FOR  THINGS  TO  SETTLE  DOWN 

0343 

1426 

AUT02 

0344 

1431 

AUTO  1 

/TABLE  FOR  AUTOCAL  PROCEDURE 

0345 

1426 

AUT02 

/3  SAMPLES  FOR  CALIBRATOR  TO  STABILIZE 

0346 

1426 

AUT02 

0347 

1426 

AUT02 

0350 

1461 

AUT03 

/TAKE  DATA  AND  ADJUST  KCAL 

0351 

1426 

AUT02 

/TAKE  2  SAMPLES  TO  KILL  TIME  AFTER  CALIBRATION 

0352 

1426 

AUT02 

0353 

1612 

AUT04 

/IF  BACKGROUND  IS  OK,  SET  UP  SHORT  BLOCK 

0354 

1637 

AUTOS 

/ERROR.  SHORT  BLOCK  TOO  SHORT 

/ 

/ 


TSWF , 

TEMPE, 

/ 

/ 

* .  +7 
CH1E, 

/ 

*.♦6 

CH2E, 

/ 

* .  +6 
ACT  1 ME , 

/ 

•.+6 
OPK , 

/ 

* .  + 1 
CHILD, 

/ 

*  .  +6 
CH2I.D , 

/ 

* .  +6 
TMD, 

/ 

* .  +6 
CH1LN, 

/ 

* .  +6 
CH2LN , 

/ 

*.+•6 
TMX , 

/ 

* .  +6 
STAK, 

/ 

*.♦14 

STK, 

/ 

*.♦1 
PRBUF , 
PROCl=PRBUF 
PR0C2=PR0Cl+4 
PR0C3=PR0C2+4 
PR0C4=PR0C3+4 
PR0C5=PR0C4+4 
PR(MT>=PR0C5+4 
PROC7=PR()C6+4 
PR0C8=PR0C7+4 
/ 

•PR0C8+4 

PRDAT, 

• . ♦PRLEN+ 1 
PRSVR, 

*.  +  l 
TRDAT , 


/HOLDING  REGISTER  FOR  7  WORD  SHIFTING 

/ACCUMULATOR  FOR  CHI  ENERGY 

/ACCUMULATOR  FOR  CH2  ENERGY 

/ACCUMULATED  TIME 

/OVERALL  PEAK 

/DAY  LEQ 

/DAY  LEQ 

/LENGTH  DAY 

/NIGHT  LEQ 

/NIGHT  LEO 

/LENGTH  NIGHT 

/SPACE  FOR  SOFTWARE  SUBROUTINE  STACK 


/8PACE  FOR  8  CLOCK  CONTROLLED  PROCESSES 
/TO  INDICATE  TIME  OF  PERFORMANCE 


/BUFFER  FOR  PRINTER  DATA 
/3RD  LEVEL  RETURN  FOR  PRINT 
/BUFFER  FOR  TAPE  RECORDER  DATA 


/ 

• . +PRLEN+ 1 
ITPDAT, 

/ 

* . +PRLEN+ 1 

LDNBOT,  /SPACE  FOR  LDN  BUFFER 

/ 

•.+100 

LDNTOP , 

/ 

*.  +  l 

BUFBG,  /DATA  BUFFER  IS  IN  FIELD  1  STARTING  AT  ZERO  AND  ENDING  AT  MEMTOP 

/ 

/DATA  IS  STORED  IN  BUFFER  AS  6  BIT  BINARY  EXPONENT 
/AND  6  BIT  BINARY  FRACTION.  THIS  IS  IN  COMPRESSED 
/FLOATING  POINT  FORMAT. 

/ 

/ 

PAGE 
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/ 

/ 

*1000 
PAGEZ , 

/ 

•PAGEZ+TSWF-PAGE0 


1237 

0000 

/ 

/ 

*1300 

0 

1300 

4115 

AUTOCM , 

CALL  BCDBIN 

1301 

6625 

1302 

3021 

DCA  21 

1303 

3020 

DCA  20 

1304 

4115 

CALL  SW3FT+2 

1305 

3560 

1306 

3777 

DCA  PR0C8 

1307 

5340 

/ 

JMP  AUT0C2 

/ 

1310 

1376 

AUTOCAL 

,  TAD  (PR0C8- 

131  1 

3015 

DCA  XRT3 

1312 

1 141 

TAD  TMIN 

1313 

7440 

SZA 

1314 

5300 

JMP  AUTOCM 

1315 

1 140 

TAD  TSEC 

1316 

0166 

AND  KD7760 

1317 

7112 

CLL  RTR 

1320 

7012 

RTR 

1321 

4115 

CALL  BCDBIN 

1322 

6625 

1323 

3006 

DCA  6 

1324 

1006 

TAD  6 

1325 

1375 

TAD  <-50 

1326 

7700 

SMA  CLA 

1327 

5335 

/ 

JMP  AUTOC1 

1330 

4115 

CALL  ERR0R4 

1331 

3322 

/ 

1332 

1374 

AUTOF, 

TAD  (NOP 

1333 

3773 

DCA  TSW0+2 

1334 

5773 

/ 

JMP  TSW0+2 

1335 

1006 

AUTOC1, 

TAD  6 

1336 

41 15 

CALL  SW3FT 

1337 

3556 

/ 

/ 

DECIMAL 

/ 

1340 

41 15 

AUT0C2, 

CALL  ADDCLK 

1341 

5010 

1342 

0473 

PROC2- 1 

1343 

0025 

21 

1344 

0073 

59 

1345 

0005 

5 

1346 

0000 

0 

/ 

OCTAL 


/THIS  IS  WHERE  PAGE  ZERO  WILL  GO 


/HANDLE  MINUTES 


/ALLOW  SYNCH  ON  MINUTE  BOUNDARY 
/CONTINUE 

/SET  UP  TIME  FOR  NEXT  LONG  BLOCK 
/SEE  HOW  LONG 

/MUST  BE  SECONDS.  CONVERT  TO  SECONDS 
/DIVIDE  BCD  BY  TEN  IS  SHIFT  RIGHT 


/IF  <40  SECONDS,  WE  GOT  BIG  TROUBLE 

/COMPLAIN 

/STOP  AUTOCAL 

/CONTINUE  OLD  WAY 

/GET  SECONDS 
/SET  UP  PROCESS  8 


/SET  UP  PROCESS  2  FOR  NEXT  AUTOCAL 
/5  HOURS  59  MINUTES  21  SECONDS 


1 


I 


/ 


1347 

1372 

TAD  (-6 

1350 

3074 

DCA  Al'TOCT 

1351 

1371 

TAD  (BUFBG-1 

1352 

3013 

DCA  XRT 1 

1353 

1124 

TAD  MEMFLG 

1354 

3413 

DCA  I  XRT 1 

1355 

1 174 

TAD  KD100 

1356 

3124 

DCA  MEMFLG 

1357 

7240 

STA 

1360 

6602 

THSET 

1361 

1146 

TAD  THOLD 

1362 

3413 

DCA  I  XRT 1 

1363 

3146 

/ 

/ 

DCA  THOLD 

1364 

5770 

JMP  AUTOC 347700 

1370 

1400 

PAGE 

1371 

0672 

1372 

7772 

1373 

0203 

1374 

7000 

1375 

7730 

1376 

0523 

1377 

0524 

/ 

1400 

1777 

/ 

TAD  PR0C6 

1401 

3413 

DCA  I  XRT 1 

1402 

7330 

K4000 

1403 

3777 

DCA  PROC6 

1404 

1776 

TAD  PROC7 

1405 

3413 

DCA  I  XRT 1 

1406 

7330 

R4000 

1407 

3776 

/ 

DCA  PROC7 

1410 

1 141 

TAD  TMIN 

1411 

3413 

DCA  I  XRT 1 

1412 

3141 

DCA  TMIN 

1413 

1  140 

TAD  TSEC 

1414 

3413 

DCA  I  XRT 1 

1415 

1375 

TAD  (5 

1416 

3140 

DCA  TSEC 

1417 

1 140 

TAD  TSEC 

1420 

6600 

/ 

AUT0C3, 

SEC 

1421 

6606 

GOTDAT 

1422 

6002 

I  OF 

1423 

6613 

BEGIN 

1424 

41 15 

CALL  XSW3B 

1425 

3305 

1426 

3075 

AUT02, 

DCA  AUTOFL 

1427 

2774 

ISZ  TSW0+2 

1430 

5773 

/ 

/ 

JMP  TSW0X 

1431 

1372 

AUTOl, 

TAD  (AUTOl A 

1432 

3007 

DCA  7 

1433 

1136 

AUTO IB, 

TAD  REFLV1 

1434 

7161 

CIA  STL 

/SET  UP  RETRY  COUNTER 
/SAVE  DATA  OUT  OF  THE  WAY 


/FIX  UP  THRESHOLD 


/SAVE  PROCESS  WORDS 


/SAVE  BLOCK  LENGTH 
/SET  NEW  TIME  OF  0.5  SEC 

/AND  SET  HARDWARE 

/CLEAR  FLAG  FOR  DATA 

/LOAD  TIME  IN  HARDWARE 
/SEE  WHEN  WE’RE  DONE 

/CLEAR  DATA  FLAG 
/DON’T  RETURN  HERE 

/SET  UP  RETURN 

/CHECK  THAT  THE  CURRENT  LEVELS  ARE  LESS 
/THAN  15  DB  BELOW  THE  REFERENCE  LEVEL 
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1435 

1057 

TAD  chi 

1436 

1371 

tad  ( 477 

1437 

7620 

SNL  CLA 

1440 

5770 

/ 

JMP  Al'TODN 

1441 

6622 

FUNLO 

1442 

0174 

AND  KD1O0 

1443 

7650 

SNA  CLA 

1444 

5407 

JMP  I  7 

144S 

1  137 

TAD  REFLV2 

1446 

7161 

CIA  STL 

1447 

1060 

TAD  CH2 

1450 

1371 

TAD  (477 

1451 

7620 

SNL  CLA 

1452 

5770 

JMP  Al’TODN 

1453 

5407 

/ 

AUTO  1 A , 

JMP  I  7 

1454 

1455 

41  IS 
5506 

CALL  SETMD 

1456 

6777 

-CALRFL- 1 

1457 

1000 

CALREL 

1460 

5226 

/ 

AUT03 , 

JMP  AUT02 

1461 

1 136 

TAD  REFLV1 

1462 

7161 

CIA  STL 

1463 

1057 

TAD  CHI 

1464 

7430 

S/L 

1465 

7141 

CIA  CLL 

1466 

1367 

TAD  (-17 

1467 

7630 

S/L  CLA 

1470 

5770 

/ 

JMP  AUTODN 

1471 

6622 

FUNLO 

1472 

0174 

AND  KD 100 

1473 

7650 

SNA  CLA 

1474 

530S 

JMP  AUT03A 

1475 

1 137 

TAD  REFLV2 

1476 

7161 

CIA  STL 

1477 

1060 

TAD  CH2 

1500 

7430 

S/L 

1501 

7141 

CIA  CLL 

1502 

1367 

TAD  (-17 

1503 

7630 

S/L  CLA 

1504 

5770 

/ 

JMP  AUTODN 

1505  1125 

1506  0174 

1507  7640 

1510  5320 

151!  1061 

1512  7161 

1513  1057 

1514  1173 

1515  7630 

1516  5770 

1517  5332 


AUT03A ,  TAD  MODE 
AND  KD  100 
S'/A  CLA 
JMP  AUT03B 
TAD  PK 
CIA  STL 
TAD  CHI 
TAD  KD200 
S/1.  CLA 
JMP  Al'TODN 
JMP  AUT03C 


/ 


1520  6622 

1521  0174 

1522  7650 


AUT03B ,  FUNLO 

AND  KD 100 
SNA  CLA 


/15  DB  IN  INTERNAL  NOTATION 

/ARE  THERE  TWO  CHANNELS? 

/OK.  NOW  CHECK  OTHER  CHANNEL 

/LEVELS  ARE  OK.  TURN  ON  CALIBRATOR 

/ARE  NEW  VALUES  WITHIN  0.7  DB 

/TAKE  ABSOLUTE  VALUE 

/0.7  DB  IN  INTERNAL  NOTATION 

/CHECK  FOR  CHANNEL  2 

/OK  ON  LEVEL.  NOW  CHECK  PEAK 

/CHECK  PEAK  ON  CHANNEL  ONE 
/6  DB  IN  INTERNAL  NOTATION 

/MUST  BE  CHANNEL  2.  IS  IT  ACTIVE? 
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1523 

5332 

JMP  AUT03C 

1524 

1061 

TAD  PK 

1525 

7161 

CIA  STL 

1526 

1060 

TAD  CH2 

1527 

1 173 

TAD  KD200 

1530 

7630 

SZL  CLA 

1531 

5770 

/ 

AUT03C, 

JMP  AUTODN 

1532 

1057 

TAD  CHI 

1533 

7161 

CIA  STL 

1534 

1 136 

TAD  REFLVI 

1535 

1134 

TAD  KCAL1 

1536 

3134 

/ 

DCA  KCAL1 

1537 

6622 

FUNLO 

1540 

0174 

AND  KD100 

1541 

7650 

SNA  CLA 

1542 

5350 

JMP  AUT03D 

1543 

1060 

TAD  CH2 

1544 

7161 

CIA  STL 

1545 

1137 

TAD  REFLV2 

1546 

1135 

TAD  KCAL2 

1547 

3135 

CCA  KCAL2 

1550 

4115 

AUT03D , 

CALL  SETMD 

1551 

5506 

1552 

6777 

-CALREL- 1 

1553 

0000 

0 

1554 

5226 

/ 

JMP  AUT02 

1567 

7761 

PAGE 

1570 

1600 

1571 

0477 

1572 

1454 

1573 

0204 

1574 

0203 

1575 

0005 

1576 

0520 

1577 

0514 

/ 

1600 

4115 

AUTODN , 

CALL  SETMD 

1601 

5506 

1602 

6777 

-CALREL- 1 

1603 

0000 

0 

1604 

2074 

ISZ  AUTOCT 

1605 

7410 

SKP 

1606 

5215 

JMP  AUT04A 

1607 

1377 

TAD  ( S400+TSW0A 

1610 

3776 

DCA  TSW0+2 

161 1 

5775 

/ 

JMP  AUT02 

/ 

/ 

/ 

/ 

1612 

1374 

AUT04, 

TAD  (AUT04A 

1613 

3007 

DCA  7 

1614 

5773 

/ 

JMP  AUTO  IB 

/ 

1615 

1372 

AUT04A , 

TAD  (BUFBG-1 

/MEETS  ALL  CONDITIONS.  ADJUST  JCCALS 

/SEE  ABOUT  CHANNEL  2 

/TURN  OFF  CAL  TONE 

/WAIT  A  WHILE.  THEN  FINISH  UP 

/KILL  CAL  RELAY 

/HAVE  WE  TRIED  ENOUGH? 

/RESET  JUMP  TABLE  POINTER 
/TAKE  SAMPLES  TO  LET  CAL  TONE  DIE 

/SET  UP  RETURN  FROM  BACKGROUND  CHECK 

/RESTORE  DATA 
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1616 

3013 

DCA  XRT  1 

1617 

1413 

TAD  I  XRT  1 

1620 

3124 

DCA  MEMFLG 

1621 

1413 

TAD  I  XRT  1 

1622 

3146 

DCA  THOLD 

1623 

1413 

TAD  I  XRT 1 

1624 

3771 

DCA  PR0C6 

1625 

1413 

TAD  I  XRT 1 

1626 

3770 

DCA  PR0C7 

1627 

1413 

TAD  I  XRT  1 

1630 

3141 

DCA  TMIN 

1631 

1413 

TAD  I  XRT  1 

1632 

3140 

DCA  TSEC 

1633 

4115 

CALL  TTSET 

/RESTORE  HARDWARE 

1634 

5474 

1635 

5767 

/ 

/ 

JMP  AUT0C3 

/SET  UP  DATA  TAKING 

1636 

6613 

/ 

NAUTOC, 

BEGIN 

/RESTART  BLOCK  ON  TIME 

1637 

7330 

AUT05, 

R4000 

1640 

3766 

DCA  PROCS 

/NO  MORE  SHORT  BLOCKS 

1641 

5765 

/ 

/ 

VLOPG, 

/ 

JMP  AUTOF 

/CLEAN  UP 

1765 

1332 

PAGE 

1766 

0524 

1767 

1421 

1770 

0520 

1771 

0514 

1772 

0672 

1773 

1433 

1774 

1615 

1775 

1426 

1776 

0203 

1777 

5741 

/ 
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7653 

1005 

TAD  5 

/NOW  SEND  BACK  COMPLEMENT 

7654 

7040 

CMA 

7655 

3407 

DCA  I  7 

/STUFF  BACK  IN  TEST  FIELD 

7656 

1407 

TAD  I  7 

7657 

7001 

I  AC 

7660 

1005 

TAD  5 

/DO  THEY  COMPARE? 

7661 

7640 

SZA  CLA 

7662 

5271 

JMP  STRT3 

/NO.  DONE. 

7663 

7100 

CLL 

/YES.  DO  NEXT  BLOCK 

7664 

1171 

TAD  KD 1000 

7665 

1007 

TAD  7 

7666 

3007 

DCA  7 

7667 

7420 

SNL 

7670 

5247 

/ 

STRT3, 

JMP  STRT2 

/NO.  KEEP  LOOKING 

7671 

1125 

TAD  MODE 

/SETT  UP  HARDWARE 

7672 

6607 

SELMD 

7673 

1007 

TAD  7 

/GO  BACK  ONE  STEP 

7674 

1374 

TAD  (-1000 

7675 

3056 

/ 

DCA  MEMTOP 

7676 

4115 

/ 

CALL  ACCLR 

/CLEAR  OUT  ENERGY  BUFFERS 

7677 

7703 

7700 

4115 

CALL  TTSET 

/SET  MINIMUM  TIME  AND  THRESHOLD 

7701 

5474 

7702 

5767 

/ 

ACCLR, 

JMP  WFUN5+2 

/SET  ALL  POINTERS  FOR  DATA  BUFFERS 

7703 

1366 

TAD  (TEMPE-STAK 

/THIS  CLEARS  THE  ENERGY  BUFFER 

7704 

301 1 

DCA  INT2 

7705 

1153 

TAD  TEMPEX 

7706 

3010 

DCA  INTI 

7707 

3410 

DCA  I  INTI 

7710 

201  1 

ISZ  INT2 

771  1 

5307 

JMP  .-2 

7712 

5523 

/ 

HIPG, 

/ 

RETURN 

7766 

7702 

PAGE 

7767 

6044 

7770 

7740 

7771 

0467 

7772 

7541 

7773 

0115 

7774 

7000 

7775 

0777 

7776 

5552 

7777 

5200 
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/ 


7600  0377 


760C  6612 

760 1  6607 

7602  1376 

7603  3001 

7604  1375 

7605  3010 

7606  1010 

7607  30 1 1 

7610  1374 

76 1 1  3007 

7612  1357 

7613  6607 

7614  1410 

76 1 5  3006 

7616  6607 

7617  1006 

7620  34 1 1 

762 1  2007 

7622  5212 


7623  1375 

7624  3010 

7625  1373 

7626  3011 

7627  1372 

7630  3007 

7631  1410 

7632  3411 

7633  2007 

7634  523 1 

7635  1371 

7636  3010 

7637  1370 

7640  3007 

764 1  7330 

7642  3410 

7643  2007 

7644  524 1 


7645  1375 

7646  3007 

7647  1 160 

7650  6607 

7651  1407 

7652  3005 


/ 

/SET  LINK  TABLE  BELOW  START  LOCATION 
•7600;  AND  ( JMP  START 

/ 

/THIS  CODE  DOES  THE  INITIALIZATION 

•7600 

START 

OUTHI  /TURN  OFF  POWER  BIT  OF  PRINTER  OR  CASSETTE 

SELMD  /CLEAR  STATUS  LIGHTS  AND  MEMORY  CONTROL 

TAD  (.IMP  I  SW0A  /SET  UP  INTERRUPT  JMP 
DC  A  1 

/ 

TAD  (777  /TRANSFER  DATA  FROM  FIELD  2  TO  FIELD  0 

DC  A  10 

TAD  10 

DCA  1  1 

TAD  (-1000 

DCA  7 

/ 

STRT1,  TAD  X40 
SELMD 
TAD  I  10 
DCA  6 
SELMD 
TAD  6 
DCA  I  1  1 
IS7,  7 
JMP  STRT1 

/ 

/ 

/PAGE  0  BLOCK  STARTS  AT  PAGEZ 

TAD  (PAGEZ- 1  /TRANSFER  BLOCK  TO  PAGE  0 

DCA  10 

TAD  (PAGE0-1 

DCA  11 

TAD  ( PAGE0-TSWF  /#  OF  LOCS  TO  GO 

DCA  7  /TO  PAGE  0 

TAD  I  10 

DCA  I  11 

ISZ  7 

JMP  -3 

/ 

TAD  (PRBUF-l  /CLEAR  PROCESS  CONTROL  BUFFER 

DCA  10 

TAD  (PRBUF-PRDAT 

DCA  7 

K4000 

DCA  I  10 

ISZ  7 

JMP  .-3 


TAD  (777  /LOOK  AT  TOP  WORD  OF  EACH  512  WORD  BLOCK 

DCA  7 

STRT2,  TAD  KD20  /SET  FIELD  TO  1 

SELMD 

TAD  I  7  /GET  RANDOM  DATA 

DCA  5 
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/ 

*2000 


2000 

4115 

CALL  ERR0R5 

/IN  CASE  OF  RUNAWAY  PROGRAM 

2001 

3321 

2002 

5177 

/ 

JMP  SVSET 

/CONTINUE  ANYWAY 

/ 

/THIS 

VERSION  TAKES  ABOUT  .5  MS  IN  STANDBY 

/ABOUT 

20  MS  FOR  DATA 

READING 

/ABOUT 

/ 

SW0, 

35  MS  FOR  DATA 

READING  AND  ENERGY  CALCULATION 

2003 

3050 

DCA  SAVAC 

/SAVE  AC 

2004 

7010 

RAR 

/AND  LINK 

2005 

3051 

DCA  SAVLK 

2006 

7521 

SWP 

/GET  MO 

2007 

3052 

DCA  SAVMQ 

/AND  SAVE  IT  TOO* 

2010 

1 1 15 

TAD  SUB 

/SAVE  STACK  CALL 

2011 

3053 

DCA  SVSUB 

2012 

1114 

TAD  SUB1 

/SAVE  STACK  TEMP  LOCATION 

2013 

3054 

/ 

DCA  SVSUB 1 

2014 

1124 

TAD  MEMFLG 

/IS  THERE  ANYTHING  TO  DO? 

2015 

7650 

SNA  CLA 

2016 

5777 

/ 

JMP  SW0F 

/NO.  SKIP  EVERYTHING 

2017 

7305 

K2 

/GET  TIME 

2020 

6603 

SELCHN 

2021 

3062 

DCA  TIME 

/CLEAR  OUT  TIME 

2022 

3010 

DCA  INTI 

/CLEAR  OUT  KCAL 

2023 

1376 

TAD  (ACTIME-1 

2024 

4115 

CALL  ADDE 

/ACCUMULATE  TIME 

2025 

2674 

2026 

3062 

/ 

DCA  TIME 

/L0G2  FORM  -  RANGE  31.98 

2027 

6625 

PEAK 

/GET  PEAK  VALUE 

2030 

3061 

DCA  PK 

2031 

1155 

TAD  KM  12 

/SET  UP  MAXIMUM  NUMBER  OF  SHIFTS 

2032 

3060 

DCA  TEMPI 

/WHILE  GETTING  THE  PEAK  VALUE 

2033 

1375 

TAD  (777 

/GET  ONLY  THE  A/D  BITS 

2034 

0061 

AND  PK 

2035 

7104 

CLL  RAL 

/THIS  NORMALIZES  THE  A/D  BITS 

2036 

7430 

SZL 

2037 

5242 

JMP  .  +3 

/FOUND  HIGH  ORDER  BIT 

2040 

2060 

ISZ  TEMPI 

/KEEP  COUNTING 

2041 

5235 

/ 

JMP  .-4 

2042 

7002 

BSW 

/OK.  GET  6  HIGH  ORDER  BITS 

2043 

0375 

AND  (777 

2044 

3133 

DCA  TEMP2 

2045 

1061 

TAD  PK 

/GET  RANGE  BITS  AND  CONVERT  TO  EXPONENT 

2046 

7012 

RTR 

2047 

7002 

BSW 

2050 

0374 

AND  (16 

2051 

3061 

DCA  PK 

2052 

1060 

TAD  TEMPI 

/GET  SHIFT  COUNT  AND  CONVERT  TO  EXPONENT 

2053 

7440 

SZA 

/WATCH  OUT  FOR  A  0  PEAK 

2054 

7040 

CMA 

2055 

1061 

TAD  PK 

/COMBINED  EXPONENT 

2056 

7002 

BSW 

/STUFF  IN  HIGH  ORDER 

i 


/COMBINED  EXPONENT 
/STUFF  IN  HIGH  ORDER 


20S7 

1133 

TAD  TEMP2 

2060 

4115 

CALL  LOGCON ♦ 1 

2061 

2660 

2062 

7104 

CLL  RAL 

2063 

3061 

/ 

DCA  PK 

2064 

1  125 

TAD  MODE 

2065 

0174 

AND  KD 100 

2066 

7640 

S/A  CLA 

2067 

5272 

JMP  . +3 

2070 

1  134 

TAD  KCALl 

2071 

7410 

SKP 

2072 

1  135 

TAD  KCAL2 

2073 

7100 

CLL 

2074 

7510 

SPA 

2075 

7020 

CML 

2076 

1061 

/ 

TAD  PK 

/ 

2077 

5773 

LOPG, 

JMP  SWOP 

2173 

2200 

PAGE 

2174 

0016 

2175 

0777 

2176 

0377 

2177 

2441 

SWOP, 

/ 

2200 

7430 

SZL 

2201 

7200 

CLA 

2202 

3061 

DCA  PK 

2203 

1061 

TAD  PK 

2204 

7161 

STL  CIA 

2205 

1777 

TAD  OPK 

2206 

7620 

SNL  CLA 

2207 

5212 

JMP  .+3 

2210 

1061 

TAD  PK 

221  1 

3777 

DCA  OPK 

2212 

6603 

SELCHN 

2213 

1  134 

TAD  KCALl 

2214 

3010 

DCA  INTI 

2215 

1376 

TAD  (CH1E-1 

2216 

4115 

CALL  ADDE 

2217 

2674 

2220 

3057 

/ 

DCA  CHI 

2221 

7001 

I  AC 

6603 

SELCHN 

2223 

l  135 

TAD  KCAL2 

2224 

3010 

DCA  INTI 

2225 

1375 

TAD  (CH2E-1 

2226 

4115 

CALL  ADDE 

2227 

2674 

2230 

3060 

/ 

DCA  CH2 

2231 

6622 

FUNLO 

2232 

0174 

AND  KD100 

2233 

1062 

TAD  TIME 

2234 

1374 

TAD  (-1747 

2235 

3062 

DCA  TIME 

/NOVI  IN  SHIFT  REGISTER  FORMAT 
/NOW  CONVERT  TO  LOG2 

/SQUARE  TO  GET  DB  TO  READ  RIGHT 


/ADJUST  FOR  CALIBRATION 
/SEE  WHICH  CHANNEL 

/MUST  BE  CH2 

/THIS  TIME  IT'S  CHANNEL  I 


/DO  13  BIT  ADDITION 


/DON’T  ALLOW  NEGATIVE  PEAK  LEVEL 
/SAVE 

/UPDATE  OVERALL  PEAK 


/NEW  IS  GREATER  THAN  OLD. 
/DISCARD  OLD 
/GET  CHAN  1 

/SEND  CAL  ALONG 

/ACCUMULATE  CHI  ENERGY 

/LOG2  FORM  -  RANGE  63.98 


/GET  CHAN  2 
/SEND  CAL  ALONG 
/ACCUMULATE  CH2  ENERGY 
/L0G2  FORM  -  RANGE  63.98 
/DUAL  SINGLE  CORR. 

/ADDING  100  IS  EQUAL  TO  TWICE  THE  TIME 

/MAKE  REFERENCE* 1  SECOND 
/L0G2 ( 50000 )  =  IS. 6096 
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/ 

/ 


2236 

1171 

TAD 

KD1000 

2237 

0124 

AND 

MEMFLG 

2240 

7650 

SNA 

CLA 

2241 

5277 

/ 

JMP 

SW0B 

2242 

1777 

TAD 

OPK 

2243 

3061 

/ 

DCA 

PK 

2244 

1373 

TAD 

(RADTB1-! 

2245 

41  15 

CALL  RADDE 

2246 

3135 

/ 

SW0A0 , 

2247 

1124 

TAD 

MEMFLG 

2250 

7012 

RTR 

2251 

0172 

AND 

KD400 

2252 

7650 

SNA 

CLA 

2253 

5272 

JMP 

SW0A2 

2254 

7420 

SNL 

2255 

5262 

JMP 

SW0A1 

2256 

1057 

TAD 

CHI 

2257 

7041 

CIA 

2260 

1136 

TAD 

REFLV1 

2261 

3134 

/ 

SW0A1, 

DCA 

KCAL1 

2262 

7001 

I  AC 

2263 

0124 

AND 

MEMFLG 

2264 

7650 

SNA 

CLA 

2265 

5272 

JMP 

SW0A2 

2266 

1060 

TAD 

CH2 

2267 

7041 

CIA 

2270 

1137 

TAD 

REFLV2 

2271 

3135 

/ 

SW0A2, 

DCA 

KCAL2 

2272 

1124 

TAD 

MEMFLG 

2273 

3010 

DCA 

INTI 

2274 

3124 

DCA 

MEMFLG 

2275 

1010 

TAD 

INTI 

2276 

5303 

/ 

JMP 

.+5 

2277 

1063 

/ 

SW0B, 

TAD 

SMPIG 

2300 

7640 

SZA 

CLA 

2301 

5772 

JMP 

SW0E 

2302 

1124 

TAD 

MEMFLG 

2303 

7700 

SMA 

CLA 

2304 

5345 

/ 

JMP 

SW0D1 

2305 

1041 

TAD 

EMPTY 

2306 

7740 

SMA 

SZA  CLA 

2307 

5345 

/ 

JMP 

SW0D1 

2310 

1144 

TAD 

CLHR 

2311 

7002 

BSW 

2312 

3012 

DCA 

1NT3 

2313 

1012 

TAD 

INT3 

2314 

71 10 

CLL 

RAR 

2315 

1012 

TAD 

INT3 

2316 

3012 

DCA 

IN13 

/SHOULD  WE  PUT  ENERGY  IN  DISPLAY? 

/SAVE  OVERALL  PEAK  IN  DISPLAY 
/GET  DATA  IN  INTERNAL  LOG  FORM 

/ARE  WE  TO  ADJUST  CAL? 

/ALIGN  TO  SAVE  CODE 

/IS  IT  CHANNEL  1? 

/YES.  GET  MEASURED  VALUE 

/COMPARE  TO  EXPECTED  VALUE 
/AND  UPDATE  GAIN  CONSTANT 

/IS  IT  CHANNEL  2? 


/SAVE  FLAG  BITS  FOR  THE  MOMENT 

/GO  TO  STANDBY 
/GET  BITS  BACK 
/SKIP  SAMPLE  TEST 

/SAMPLE  IN  BLOCK  MODE? 

/YES.  DON’T  PUT  IN  BUFFER 
/PUT  IN  MEMORY? 

/DON’T  PUT  DATA  IN  MEM 

/IS  BUFFER  FULL? 

/YES.  IGNORE  CURRENT  DATA 

/GET  HOURS 
/STUFF  IN  HIGH 
/=6 4 

/=32 

/=96 
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2317 

1144 

TAP  CLHR 

2320 

7106 

CLL  RTL 

/=4 

2321 

1012 

TAD  INT3 

/=  100 

2322 

1 143 

TAD  CLMIN 

/COMBINE  TIMES  IN  ONE  WORD 

2323 

3012 

DC A  INT3 

/STIFF  IN  TEMP 

2324 

4115 

CALL  SW0B2 

/PET  DATA  IN  MEMORY 

2325 

2516 

2326 

0167 

DMASK 

2327 

2450 

1MT-DMASK-1 

2330 

0020 

20 

/IN  FIELD  ONE 

2331 

2036 

ISZ  INFLO 

/END  OF  BUFFER? 

2332 

5337 

/ 

JMP  SW0D 

/GO  CONTINUE  TESTING 

2333 

1034 

TAD  STORE 

/RESET  COUNTER 

2334 

3036 

DCA  INFLO 

2335 

7240 

STA 

/RESET  XR 

2336 

3017 

/ 

SW0D, 

DCA  XR 17 

2337 

1036 

TAD  INFLO 

/BUFFER  FULL? 

2340 

7041 

CIA 

2341 

1040 

TAD  OUTFLO 

2342 

7650 

SNA  CLA 

2343 

7001 

I  AC 

/YES.  SET  FLAG 

2344 

3041 

/ 

DCA  EMPTY 

2345 

1124 

/ 

SW0D1, 

TAD  MEMFLG 

/SHOULD  WE  DO  LDN? 

2346 

0175 

AND  KD40 

2347 

7450 

SNA 

2350 

5772 

JMP  SW0E 

2351 

7040 

CMA 

2352 

0124 

AND  MEMFLG 

/OK.  BUT  KILL  FLAG  BIT.  SET  ONLY  ONCE  A  DAY 

2353 

3124 

/ 

DCA  MEMFLG 

23S4 

1047 

TAD  LDNMT 

/BUFFER  MAY  BE  FULL 

2355 

7740 

SMA  SZA  CLA 

2356 

5772 

/ 

JMP  SW0E 

2357 

1376 

/ 

TAD  (CH1E-1 

/COMPUTE  LDN  FOR  CHI 

2360 

4115 

CALL  SW0LDN 

2361 

2465 

2362 

1375 

TAD  1CH2E-1 

/COMPUTE  LDN  FOR  CH2 

2363 

41 15 

CALL  SN0LDN 

2364 

2465 

/ 

2365 

1062 

TAD  TIME 

/SAVE  TIME  FOR  DISPLAY 

2366 

3776 

/ 

DCA  CH1E-1 

/OUT  OF  THE  WAY 

2367 

5771 

/ 

JMP  SW0PP 

2371 

2400 

PAGE 

2372 

2434 

2373 

2577 

2374 

6031 

2375 

0371 

2376 

0363 

2377 

0406 

SV0PP, 

/ 
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i 


2400  1377 

4115 
3135 
4115 

f4®4  31 36 

2405  4  n  < 

2406  3136 

2407  T77I 

2410  3862 

f4,4  41 J5 

f  4  2  2516 
| 4  3  7157 

24  4  3467 

2415  0000 

f4If  4115 
2417  7703 

2420  2844  ^ 

|4|i  5226 

2422  1042 

2423  3044 


2424  1 37<r 

2425  3916 

2425  ]044 

2427  704 j 
2430  1 04c 

|43]  7650 

2432  700] 

2433  3047 

fj34  3063  ; 
|435  7240 
|436  3133 
|437  7240 
2440  3075 


;  taj®.  (SadtB2-i 

CALL  RADDE 

CALL  RADDE+J 

CALL  RADDE+1 

tad  chie~ 1 

/  OCA  Tlif  1 

SV0D2’  CALL  SW0B2 
L  MASK 

imtl-lmask- 1 

CALL  acclr 

/ 

[SZ  LDNIM 
J»P  SW0D3 
TAD  LDMST 
.  »CA  LDJVJM 


'/F,XUP  LDK  ,W°  LOG  EORm 

/retrieve  time  for  display 

/PUT  DATA  TN  LDN  MEMORY 
/TR  FIELD  zero 


/ 

SV0D3, 


/ 

SV0E, 


I  7307 
2442  0124 
|443  7450 
|444  5252 
|445  7040 

|446  0124 
2447  3124 

2450  1374 

245 1  3773 

2452  1054 

|453  3i 14 
|4S4  1053 

f4ff  3115 
|4S6  1052 

24S7  7 42 \ 

|4|0  eS 

lifi  ^51 

2462  6005 

2463  J050 


/ 

SV0F, 


/ 

SVQFl, 


J^T>  (LDMBOT 
°CA  LDN17 

**’  CIA  LDNIN 

tad  ldvot 
dca  ldnmt 

■  S SW,G 
IS  ”,SFl- 

DCA  AUTOFL 

X4 

g  »am.G 

au  S'’0"1 

AND  MEMFLG 
DCA  MEMFLG 
J  AD  ( 5400 ♦“TSVftA 
DCA  TSW0+2  SW0A 

nr?  SVSUB1 
DCA  SUBl 

tad  svsub 

DCA  SUB 

Sol  s*v*° 

OOTMT 

St?  savu  ; 

TAD  savac  / 


/END  OF  BUFFFH*> 

/RESET  pointer 
/ts  buffer  full? 


/clear  IGNORE  flag 

/tell  program  that  data 

/SFT  p?  *—  ATA  is  available 

/SET  fug  FOR  AUTOCAD 

/ARE  WE  T°  do  auto  cal? 

/YES‘  BUT  D°R’T  OVER  do  it 
*  /SBT  op  Jl-»  fo»  aito  c«. 

''RESTORE  SUBROirrWE  CALL  8KJISTras 

/RESTORE  mq 
^CLEAR  synch  F-F 

S^CUAH  AC 


74 


2464  5400 


JMP  I  0 


/RETURN  TO  WHERE  WE  CAME  FROM 


2465 

3012 

/ 

/ 

SW0LDN , 

DCA  INT3 

/SAVE  DESTINATION  ADDRESS 

2466 

1372 

TAD  (-6 

/TO  COMPUTE  LDN ,  FIRST  CLEAR  RESULT  REGISTER 

2467 

3133 

DCA  TEMP2 

2470 

3412 

DCA  I  1NT3 

2471 

2133 

ISZ  TEMP2 

2472 

5270 

/ 

JMP  .-2 

2473 

1371 

TAD  (-12 

/MAKE  LDN  10DB  LOUDER 

2474 

3055 

DCA  TEMP3 

2475 

1372 

SW0LNA, 

TAD  (-6 

2476 

1012 

TAD  INT3 

/RESTORE  ADDRESS 

2477 

3012 

DCA  I NT 3 

2500 

1370 

TAD  (CH1LN-CH1E 

/GET  ADDEND  ADDRESS 

2501 

1012 

TAD  1NT3 

2502 

41 15 

CALL  ADDE7+ 1 

/ADD  IT  ALL  UP 

2503 

3110 

2504 

2055 

ISZ  TEMP3 

2505 

5275 

/ 

JMP  SW0LNA 

2506 

1372 

TAD  (-6 

2507 

1012 

TAD  1NT3 

/RESTORE  ADDRESS 

2510 

3012 

DCA  INT3 

251  1 

1367 

TAD  (CH1LD-CH1E 

/ADD  IN  DAY 

2512 

1012 

TAD  INT3 

2513 

41  15 

CALL  ADDE7+ 1 

2514 

3110 

2515 

5523 

/ 

/ 

/ 

SW0B2 , 

RETURN 

2516 

7240 

STA 

2517 

1520 

TAD  I  STACK 

2520 

3010 

DCA  INTI 

/GET  POINTER  TO  ARGUMENT  LIST 

2521 

2120 

ISZ  STACK 

/POP  ADDRESS  OFF  STACK 

2522 

1410 

TAD  I  INTI 

/GET  DATA  TABLE  ADDRESS 

2523 

3055 

DCA  TEMP3 

2524 

1410 

TAD  I  INTI 

/GET  OFFSET 

2525 

3011 

DCA  INT2 

2526 

1410 

TAD  I  INTI 

/GET  FIELD  OF  DATA 

2527 

3115 

DCA  SUB 

/SAVE  IN  SUB  LEGAL  HERE 

2530 

1455 

SW0B2A , 

TAD  I  TEMP3 

/GET  MASK  FROM  TABLE 

2531 

7450 

SNA 

2532 

5410 

JMP  I  INTI 

/0.  DONE 

2533 

0127 

AND  FORMAT 

/GET  APPROPRIATE  BITS 

2534 

7041 

CIA 

2535 

1455 

TAD  I  TEMP3 

/MULTIPLE  BITS  ARE  ALLOWED 

2536 

2055 

ISZ  TEMP3 

/ADVANCE  POINTER 

2537 

7640 

SZA  CLA 

2540 

5330 

JMP  SW0B2A 

2541 

1055 

TAD  TEMP3 

/FOUND  A  MATCH.  GET  ADDRESS  OF  DATA 

2542 

101 1 

TAD  INT2 

/GET  OFFSET 

2543 

3133 

DCA  TEMP2 

2544 

1533 

TAD  I  TEMP2 

/GET  ADDRESS  OF  DATA 

2545 

3133 

DCA  TEMP2 

2546 

1533 

TAD  I  TEMP2 

/GET  DATA 

2547 

3133 

DCA  TEMP2 

/SAVE  IT 

2550 

1  1  15 

TAD  SUB 

/GET  FIELD 

75 


255 1  7450 

2552  5362 

2553  1 125 

2554  6607 

2555  1 133 

2556  3417 

2557  1125 

2560  6607 

256 1  5330 


SNA 

JMP  SV0B2B 
TAD  MODE 
SELMD 
TAD  TEMP2 
DCA  I  XR17 
TAD  MODE 
SELMD 
JMP  SW0B2A 


/ 

/ 


2562 

1133  SW0B2B , 

2563 

3416 

2564 

5330 

/ 

/ 

2567 

0023 

2570 

0045 

2571 

7766 

2572 

7772 

2573 

0203 

2574 

5741 

2575 

0572 

2576 

0363 

2577 

2607 

/ 

/ 

2600 

0406  RADTB1, 

2601 

0062 

2602 

0372 

2603 

0057 

2604 

0400 

2605 

0060 

2606 

0000 

2607 

0062 

/ 

2610 

0406  RADTB2 

2611 

0062 

2612 

0372 

2613 

0364 

2614 

0400 

2615 

0372 

2616 

0000 

2617 

0400 

/ 

2620 

0431 

2621 

0062 

2622 

0415 

2623 

0407 

2624 

0423 

2625 

0415 

2626 

0000 

2627 

0423 

/ 

2630 

0453 

2631 

0062 

2632 

0437 

2633 

0431 

2634 

0445 

2635 

0437 

TAD  TEMP2 
DCA  I  LDN17 
JMP  SW0B2A 


PAGE 


ACTIME+6 

TIME 

CH1E+6 

CHI 

CH2E+6 

CH2 

0 

TIME 

ACTIME+6 
TIME 
CH1E+6 
CH  IE 
CH2E+6 
CH2E 
0 

ACT  I ME 

TMD+6 
TIME 
CH 1LD+6 
CHILD 
CH2LD+6 
CH2LD 
0 

TMD 

TMN+6 

TIME 

CH1LN+6 

CH1LN 

CH2LN+6 

CH2LN 


/SET  HARDWARE 
/RETREIVE  DATA 

/RESTORE  FIELD 


/STUFF  IN  LDN  BUFFER 
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I 


2636 

0000 

0 

2637 

0445 

/ 

/ 

TMN 

2640 

0057 

IMT, 

CHI 

2641 

0060 

CH2 

2642 

0061 

PX 

2643 

0062 

TIME 

2644 

0134 

KCAL1 

2645 

0135 

KCAL2 

2646 

0012 

/ 

/ 

I  NT  3 

2647 

0364 

IMTL, 

CH  IE 

2650 

0372 

CH2E 

2651 

0423 

TMD 

2652 

0445 

TMN 

2653 

0407 

CHILD 

2654 

0431 

CH1LN 

2655 

0415 

CH2LD 

2656 

0437 

CH2LN 

/ 

/ 

/ 

TEMP 1=CH2 
TEMP2=DISFL 

/ 

2657  6624  LOGCON,  OUTREG 

DCA  TEMP3 
TAD  TEMP3 
AND  KD77 
TAD  LOGTBL 
DCA  TEMP2 
TAD  TEMP3 
AND  KD7700 
DCA  TEMP3 
TAD  I  TEMP2 
AND  KD77 
TAD  TEMP3 
RETURN 


2661  1055 

2662  0161 

2663  1 154 

2664  3133 

2665  1055 

2666  0165 

2667  3055 

2670  1533 

2671  0161 

2672  1055 

2673  5523 


/ 

/ 


/CHI  LDN 
/CH2  LDN 


/GET  DATA 

/SAVE  NUMBER 

/GET  FRACTIONAL  PART 

/FORM  TABLE  ADDRESS 

/GET  HIGH  BITS 

/ADD  LOW  BITS 


77 


l 


/ 


/ 


2674 

3012 

ADDE, 

DC  A 

INT3 

2675 

1010 

TAD 

INTI 

2676 

7710 

SPA 

CLA 

2677 

7240 

STA 

2700 

3011 

DCA 

INT2 

2701 

41 15 

CALL  LOGCON 

2702 

2657 

2703 

7100 

CLL 

2704 

1010 

TAD 

INTI 

2705 

7430 

SZL 

2706 

201 1 

ISZ 

INT2 

2707 

7000 

NOP 

2710 

3055 

DCA 

TEMP3 

2711 

101  1 

TAD 

INT2 

2712 

7710 

SPA 

CLA 

2713 

5523 

/ 

RETURN 

2714 

101 1 

TAD 

INT2 

2715 

7110 

CLL 

RAR 

2716 

1055 

TAD 

TEMP3 

2717 

7010 

RAR 

2720 

3133 

/ 

DCA 

TEMP2 

2721 

1011 

TAD 

INT2 

2722 

7110 

CLL 

RAR 

2723 

1062 

TAD 

TIME 

2724 

7061 

CML 

CIA 

2725 

1055 

TAD 

TEMP3 

2726 

7430 

SZL 

2727 

7200 

CLA 

2730 

3055 

/ 

DCA 

TEMP3 

2731 

1  172 

TAD 

KD400 

2732 

0124 

AND 

MEMFLG 

2733 

7650 

SNA 

CLA 

2734 

5777 

/ 

JMP 

ADDE6 

2735 

1063 

TAD 

SMPIG 

2736 

7640 

SZA 

CLA 

2737 

5777 

/ 

JMP 

ADDE6 

2740 

1133 

TAD 

TEMP2 

2741 

0161 

AND 

KD77 

2742 

1 154 

TAD 

LOGTBL 

2743 

3060 

/ 

DCA 

TEMPI 

2744 

1 133 

TAD 

TEMP2 

2745 

7002 

BSW 

2746 

0161 

AND 

KD77 

2747 

7104 

CLL 

RAL 

2750 

1376 

TAD 

(2 

2751 

3133 

/ 

DCA 

TEMP2 

/ 

2752 

1 153 

TAD 

TEMPEX 

2753 

3010 

DCA 

INTI 

2754 

1375 

TAD 

(-7 

2755 

301 1 

DCA 

INT2 

/SAVE  POINTER  TO  RESULT 
/INITIALIZE  DOUBLE  PRECISION  ADD 


/EXTENDED  SIGN  FOR  KCAL 
/GET  VALUE  AND  CONVERT  TO  L0G2 

/DO  14  BIT  ADD 
/KCAL 

/SAVE  CALIBRATED  ENERGY 
/HOW  IS  SIGN  OF  RESULT? 

/NEG.  SKIP  EVERYTHING** 

/CONVERT  L0G2  BACK  TO  NUMERIC 
/SAVE  OVERFLOW  BIT  IN  LINK 

/CONVERT  TO  L0G4 
/SET  UP  13  BIT  SUBTRACT 

/ADD  IN  ENERGY 

/KILL  FOR  NEGATIVE  RESULT 
/NOW  HAS  LEO 

/TEST  FOR  SOFTWARE  ACCUMULATOR 

/DON’T  ACCUMULATE  FOR  THIS  CASE 

/CONVERT  BACK  TO  NUMERIC  USING 
/ANTIL0G4  TABLE 

/THIS  NOW  SAVES  ADDRESS  OF  DATA 
/GET  EXPONENT 

/COMPUTE  NUMBER  OF  SHIFTS  TO  NORMALIZE 
/ADD  HARDWARE  CONSTANT 

/SET  UP  POINTERS 

/FOR  NORMALIZATION  USE  EXTRA  REGISTER 
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2756 

3410 

/ 

DC A  1  INTI 

/CLEAR  OPT  THE  REGISTER 

2757 

201  1 

IS2  INT2 

2760 

5356 

/ 

JMP  .-2 

2761 

1  153 

TAD  TEMPEX 

/NEXT  DO  A  WORD  BY  WORD  SHIFT  FOR  SPEED 

2762 

3ft  10 

DC A  INTI 

2763 

1  133 

TAD  TEMP 2 

/RETRIEVE  COUNT 

2764 

1 155 

TAD  KM >2 

/DIVIDE  BY  12  BITS  PER  WORD 

2765 

7510 

SPA 

2766 

537 1 

JMP  .  ‘3 

/DONE 

2767 

20 1 0 

IS'/  INTI 

/ADVANCE  POINTER 

2770 

5364 

/ 

•IMP  .-4 

/AND  TRY  AGAIN 

2771 

5774 

JMP  ADDF 1*7600 

2774 

3000 

P,V.'K 

2775 

7771 

2776 

0002 

2777 

3077 

/ 

30OO 

1377 

TAD  < 14 

/RESTORE 

3001 

7040 

CMA 

30O2 

3133 

/ 

DC A  TEMP 2 

/NOW  WE  HAVE  REMAINDER. 

3003 

7621 

CAM 

/2  WORD  LONG  BIT  SHIFT 

3004 

1460 

TAD  I  TEMPI 

/GET  VALUE  FROM  TABLE 

300S 

0165 

/ 

ADDE1 , 

AND  XP77O0 

3006 

2133 

IN/  TEMP2 

/DONE?  THIS  ROUTINE  TAKES  2  MS  WORST  CASE 

3007 

7410 

SKP 

3010 

5216 

.IMP  ADDE2 

3011 

7104 

CU.  RAL 

/DOUBLE  PRECISION  SHIFT 

3012 

7521 

SUP 

3013 

7004 

HAL 

3014 

7521 

SUP 

3015 

5206 

/ 

JMP  A DDE  1 

3016 

3410 

/ 

ADDE2 , 

DC A  I  INTI 

/PUT  AWAY  LOW  ORDER 

3017 

7521 

SWT 

3020 

3410 

/ 

DC A  I  INTI 

/AND  HIGH  ORDER 

3021 

4115 

CALL  ADDE7 

/UPDATE  SOFTWARE  ACCUMULATOR 

3022 

3107 

3023 

1  173 

TAD  XD200 

/DO  WE  DO  LDN? 

3024 

0124 

AND  MFMFLG 

3025 

7650 

SNA  CLA 

3026 

5277 

/ 

JMP  ADDE6 

3027 

1006 

TAD  6 

/SAVE  6  AND  7  TO  ALLOW  USE  OF  BCDBIN 

3030 

3066 

DCA  TEMPI 

30 3 1 

1007 

TAD  7 

3032 

3133 

/ 

DCA  TEMP2 

3033 

1  140 

TAD  TSEC 

/YES.  WHICH  ONE  DAY  OR  NIGHT? 

3034 

7450 

SNA 

3035 

5301 

JMP  ADDEM 

3036 

0166 

AND  KD7760 

/DIVIDE  BCD  BY  10 

3037 

7112 

CLL  RTR 

3040 

7012 

RTR 
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I, 


/ 


/ 


3125 

1412 

RADDE0, 

TAD  1  INT3 

/WHERE  DO  WE  PUT  TIME? 

3126 

3055 

DCA  TEMP3 

3127 

6622 

FUSLO 

/GET  DUAL  SINGLE  CORRECTION 

3130 

0174 

AND  KD100 

3131 

1370 

TAD  (-1747 

/CONVERT  TO  DB  SECONDS 

3132 

1062 

TAD  TIME 

3133 

3455 

DCA  1  TEMP3 

3134 

5523 

/ 

RETURN 

3135 

3012 

3 

RADDE , 

DCA  I  NT 3 

/SAVE  TABLE  ADDRESS 

3136 

3062 

DCA  TIME 

/CLEAR  OUT  TIME  TO  EVALUATE  TIME 

3137 

1412 

TAD  I  INT3 

/IS  TABLE  VALUE  ZERO? 

3140 

7450 

SNA 

3141 

5325 

JMP  RADDE0 

/ZERO  MEANS  END  OF  TABLE 

3142 

3055 

DCA  TEMP3 

/SAVE  ADDRESS  OF  BUFFER 

3143 

1412 

TAD  I  I NT 3 

/GET  ADDRESS  OF  RESULT 

3144 

3133 

/ 

DCA  TEMP2 

/SAVE  OUT  OF  THE  WAY 

3145 

1367 

TAD  (-107 

/MAX  NUMBER  OF  SHIFTS  IN  BUFFER 

3146 

3010 

/ 

RADDE  1, 

DCA  INTI 

3147 

7240 

STA 

/DECREMENT  ADDRESS  POINTER 

3150 

1055 

TAD  TEMP3 

31S1 

30S5 

DCA  TEMP 3 

3152 

1455 

TAD  I  TEMP3 

/IS  HIGH  ORDER  0? 

3 1S3 

7440 

SZA 

3154 

5766 

JMP  KADDE2 

3155 

1377 

TAD  (14 

/I2  BITS  PER  WORD 

3156 

1010 

TAD  I NT  1 

3157 

3010 

DCA  INTI 

3160 

1010 

TAD  INTI 

/ARE  WE  DONE? 

3161 

7710 

SPA  CLA 

3162 

5347 

JMP  RADDE 1 

3163 

5765 

/ 

JMP  RADDE5 

/YEP.  BUFFER  IS  EMPTY 

3165 

3246 

PAGE 

3166 

3200 

3167 

767! 

3170 

6031 

3171 

7772 

3172 

0355 

3173 

0037 

3174 

0015 

3175 

7761 

3176 

7771 

3177 

00)4 

/ 

RADDE2, 

3200 

7421 

MOI¬ 

/SET  UP  TWO  WORD  SHIFT 

320 1 

7240 

ST  A 

3202 

1055 

TAD  TEMP3 

3203 

3055 

DCA  TEMP3 

3204 

1455 

/ 

RADDE3, 

TAD  I  TEMP3 

3205 

7104 

CLL  RAL 

/SHIFT  LOW  ORDER 

3206 

7521 

SWP 

/GET  HIGH  ORDER 

3207 

7004 

RAL 

/PUT  BIT  FROM  LOW  INTO  HIGH 

3210 

7420 

SNL 

/HAVE  WE  FOUND  THE  SIGNIFICANT  1? 

Cl 


3211 

5243 

/ 

JMP 

RADDE4 

3212 

7002 

BSW 

3213 

0161 

AND 

KD77 

3214 

1 154 

TAD 

LOGTBL 

3215 

3055 

DCA 

TEMP3 

3216 

1455 

TAD 

I  TEMP3 

3217 

0161 

AND 

KD77 

3220 

301 1 

DCA 

INT2 

3221 

1010 

TAD 

INTI 

3222 

7041 

CIA 

3223 

0161 

AND 

KD77 

3224 

7002 

BSW 

3225 

101 1 

TAD 

INT2 

3226 

301 1 

/ 

DCA 

INT2 

3227 

1010 

TAD 

INTI 

3230 

7041 

CIA 

3231 

0174 

AND 

KD100 

3232 

7100 

CLL 

3233 

7640 

SZA 

CLA 

3234 

7020 

CML 

3235 

1062 

TAD 

TIME 

3236 

7061 

CIA 

CML 

3237 

1011 

TAD 

INT2 

3240 

7430 

SZL 

3241 

7200 

CLA 

3242 

5246 

/ 

JMP 

RADDES 

/ 

3243 

7521 

RADDE4 , 

SWP 

3244 

2010 

ISZ 

INTI 

3245 

5205 

/ 

JMP 

RADDE3 

/ 

3246 

3533 

RADDE5, 

DCA 

I  TEMP2 

3247 

5777 

JMP 

RADDE+2 

/ 


/ 


/YES.  GET  6  BIT  DATA 
/MAKE  LOG  FORMAT 

/GET  EXPONENT 

/COMBINE 

/SET  UP  13  BIT  SUBTRACT 

/GET  HIGH  ORDER  BIT  IN  LINK 

/DON’T  LET  NEGATIVE  RESULT  IN. 

/HIT  UNDERFLOW 

/PUT  RESULT  AWAY 
/GET  NEXT  TABLE  ENTRY 
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/ 


/ 


32  SO 

4115 

SW1, 

CALL  PRSET 

3251 

3255 

3252 

1433 

TAD 

I  PRRET 

3253 

3007 

DC  A 

7 

3254 

5407 

/ 

JMP 

I  7 

3255 

1375 

/ 

PRSET , 

TAD 

((OUTBIT 

3256 

3022 

DCA 

B I  TOUT 

3257 

1374 

TAD 

(PRDAT 

3260 

3007 

PRSET 1 , 

DCA 

7 

3261 

1373 

TAD 

( B I TOUT 

3262 

3013 

DCA 

XRT1 

3263 

1372 

TAD 

(1-PRLEN 

3264 

3006 

DCA 

6 

3265 

1007 

PRSET2 , 

TAD 

7 

3266 

3413 

DCA 

1  XRT I 

3267 

2007 

ISZ 

7 

3270 

2006 

JSZ 

6 

3271 

5265 

JMP 

PRSET2 

3272 

5523 

RETURN 

/ 


/ 

/ 


/SET  UP  BUFFER  POINTERS 
/GO  TO  WHEREVER  WE  LEFT  OFF. 

/SET  UP  PRINTER  POINTER 

/SET  UP  FIRST  ADDRESS  IN  BUFFER 

/ADDRESS  OF  POINTER  ARRAY 
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/ 

3273 

6002 

/ 

/ 

XSW3A, 

IOF 

3274 

6606 

GOT DAT 

3275 

6613 

BEGIN 

/RESET  COUNTERS 

3276 

1371 

TAD  (TEMPE-i 

CHILD  /CLEAR  OUT  72  BIT  ACCUMULATORS 

3277 

3007 

DCA  7 

3300 

1 153 

TAD  TEMP EX 

3301 

3013 

DCA  XRT 1 

3302 

3413 

DCA  I  XRT 1 

3303 

2007 

ISZ  7 

3304 

5302 

JMP  .-2 

3305 

41 15 

XSW3B, 

CALL  D I ST ST 

/CLEAR  DISPLAY 

3306 

3676 

3307 

3063 

DCA  SMPIG 

3310 

3007 

DCA  7 

331 1 

2007 

ISZ  7 

/HANG  UP  ERROR  TEST 

3312 

7410 

SKP 

3313 

5325 

JMP  ERROR  1 

3314 

6003 

SRQ 

/WAIT  FOR  FLAG 

3315 

5311 

JMP  .-4 

3316 

6606 

GOTDAT 

/CLEAR  USELESS  DATA 

3317 

6001 

ION 

/IT’S  OK  NOW. 

3320 

5523 

/ 

RETURN 

3321 

7201 

/ 

ERRORS, 

CLA  I AC 

/RUNAWAY  PROGRAM  -  ERROR 

3322 

7001 

ERR0R4 , 

I  AC 

/PROBLEM  WITH  AUTO  CAL 

3323 

7001 

ERR0R3 , 

I  AC 

/BAD  SPECIFICATION  FOR  MINISAMPLE  TIME 

3324 

7001 

ERR0R2 , 

I  AC 

/ERROR  2  -  HUNG  UP  PRINTER  -  ERROR 

3325 

7001 

ERROR  1, 

I  AC 

/ERROR  1  -  HUNG  UP  A/D  -  ERROR 

3326 

1163 

TAD  KD320 

/PUT  MINUS  SIGN  IN  DISPLAY 

3327 

6604 

LODIS 

3330 

1370 

TAD  (335 

3331 

6605 

HIDIS 

3332 

4115 

CALL  SETMD 

/TURN  ON  DISPLAY 

3333 

5506 

3334 

3777 

-VDIS-1 

3335 

4000 

VDIS 

3336 

5523 

/ 

SW3, 

RETURN 

3337 

1076 

TAD  TSW3F 

/IS  THIS  FIRST  TIME  THROUGH? 

3340 

7640 

SZA  CLA 

3341 

5767 

JMP  TSW3X 

3342 

7240 

STA 

/YES.  SET  FLAG 

3343 

3076 

DCA  TSW3F 

3344 

3101 

DCA  TSW8F 

/CLEAR  THRESHOLD  FLAG 

3345 

1366 

TAD  (S3TBMJ 

3346 

3006 

SW3CM, 

DCA  6 

/SAVE  TABLE  ADDRESS 

3347 

1151 

TAD  DMPX 

/KILL  DUMP  IF  IN  PROGRESS 

3350 

3150 

DCA  IDMP 

3351 

1 157 

TAD  KD17 

/GET  MODE 

3352 

0125 

AND  MODE 

3353 

1006 

TAD  6 

/MEMORY  FLAG  TABLE 

3354 

3007 

DCA  7 

33S5 

1407 

TAD  I  7 

3356 

3014 

DCA  XRT2 

/SET  AUTO  POINTER  FOR  EASY  TABLE  LOOKUP 

3357 

6002 

IOF 

/DO  THINGS  IN  THE  DARK 

3360 

1414 

TAD  I  XRT2 

/GET  THE  FLAG  BITS 

84 


3361  3124 


/ 


DCA  MEMFLG 


3362 

5765 

JMP  SW3CMP 

3365 

3400 

PAGE 

3366 

3407 

3367 

0215 

3370 

0335 

3371 

7746 

3372 

7767 

3373 

0022 

3374 

0530 

3375 

3376 

3376 

4523 

3377 

3137 

SW3CMP, 

/ 

3400 

1414 

TAD  I  XRT2 

3401 

0125 

AND  MODE 

3402 

1414 

TAD  I  XRT2 

3403 

3125 

DCA  MODE 

3404 

1125 

TAD  MODE 

3405 

6607 

SELMD 

3406 

5777 

JMP  MOD JMP 

/ 

/ 

/TABLE  LISTS 

/ 


/MASK  OUT  SOME  BITS 
/AND  PUT  SOME  IN 

/UPDATE  HARD  WARE  TOO. 

/UNIVERSAL  JUMP  USES  TABLE  FOR  POINTER 


3407 

3432 

S3TBMJ , 

ST3M0-1 

3410 

3432 

ST3M1-1 

3411 

3441 

ST3M2- 1 

3412 

3447 

ST3M3-1 

3413 

3453 

ST3M4- 1 

3414 

3457 

ST3M5- 1 

3415 

3457 

ST3M6- 1 

3416 

3457 

ST3M7- 1 

3417 

3467 

ST3M8- 1 

3420 

3467 

ST3M9- 1 

3421 

3426 

ST3MER- 1 

3422 

3426 

ST3MER- 1 

3423 

3426 

ST3MER- 1 

3424 

3426 

ST3MER- 1 

3425 

3426 

ST3MER- 1 

3426 

3467 

/ 

ST3M15-1 

3427 

0000 

/ 

ST3MER , 

0  /GO  TO 

3430 

0117 

PKCHNfMODNUM 

3431 

4400 

VDIS’STNBLD 

3432 

3500 

/ 

ST3M0, 

SW3AA 

3433 

0500 

ST3M1, 

500 

3434 

5177 

-STRTLD-STNBLD-M IN I TA- 1 

3435 

0200 

STRTLD 

3436 

3505 

SW3B 

3437 

3510 

SW3C 

3440 

3502 

SW3A 

3441 

0215 

/ 

ST3M2, 

TSW3X 

3442 

0500 

500 

I 


3443  5177 

3444  2200 

3445  3505 

3446  3502 

3447  5071 


-STRTLD-STNBLD-M I N ITA- 1 

STRTLD !M IN ITA 

SW3B 

SW3A 

SW8T  /THIS  EXIT  PUTS  OUT 


3450 

4110 

ST3M3, 

4110  /THIS  IS  NOP 

3451 

7777 

-1 

3452 

0000 

0 

3453 

3670 

/ 

ST3M4, 

SW4B 

3454 

4100 

4100 

3455 

1 177 

- VD IS-STNBLD-STRTLD-M I N I TA- 1 

3456 

2200 

STRTLD’MINITA 

3457 

3522 

/ 

ST3M5, 

ST3M6, 

SW3D 

3460 

4710 

ST3M7, 

4710 

3461 

3177 

-VD I S-STNBLD-STRTLD- 1 

3462 

0200 

STRTLD 

3463 

3505 

SW3B 

3464 

5544 

WFUN1H 

3465 

3502 

SW3A 

3466 

3524 

SW3E 

3467 

0215 

/ 

ST3M8, 

ST3M9, 

TSW3X 

3470 

4700 

ST3M1S, 

4700 

3471 

3177 

- VD I S-STNBLD-STRTLD- 1 

3472 

0200 

STRTLD 

3473 

3505 

SW3B 

3474 

5544 

WFUN1H 

3475 

3502 

SW3A 

3476 

3524 

SW3E 

3477 

3544 

SW3F1 

DIGITAL  DATA 


3500 

6001 

/ 

/ 

/ 

/ 

SW3AA, 

ION 

3501 

5776 

JMP  ERR0 

3502 

41 15 

/ 

SW3A, 

CALL  XSW3A 

3503 

3504 

3273 

5777 

JMP  MODJMP 

3505 

4115 

/ 

SW3B, 

CALL  TTSET 

3506 

3507 

5474 

5777 

JMP  MODJMP 

3510 

7240 

/ 

SW3C, 

STA 

3511 

6602 

THSET 

3512 

1125 

TAD  MODE 

3513 

0157 

AND  KD17 

3514 

7640 

SZA  CLA 

3515 

5320 

JMP  . +3 

3516 

3134 

DCA  KCAL1 

3517 

5777 

JMP  MODJMP 

/SIMPLE  ESCAPE 

/TO  NON-EX 1ST ANT  FUNCTION 

/SET  HARDWARE 

/SET  THRESHOLD  AND  TIME 

/SET  THRESHOLD  TO  ZERO  FOR  CAL 
/MODE  0? 

/KILL  GAIN  CONSTANT  CHI 


ON  MINITAPE 
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3520 

3135 

DC A  KCAL2 

/KILL  GAIN  CONSTANT  CH2 

3521 

5777 

/ 

SW3D, 

JMP  MODJMP 

3522 

6001 

ION 

/DON’T  SET  HARDWARE  AGAIN 

3523 

5775 

/ 

SW3E, 

JMP  SW8T 

/GO  WRITE  TAPE 

3524 

U2S 

TAD  MODE 

/SKIP  FOR  MODES  5  AND  IS 

3525 

0157 

AND  KD17 

3526 

1374 

TAD  (-5 

3527 

7450 

SNA 

3530 

5777 

JMP  MODJMP 

3531 

1373 

TAD  (-12 

3532 

7650 

SNA  CLA 

3533 

5777 

JMP  MODJMP 

3534 

1372 

TAD  (PR0C3-1 

/ENABLE  LDN  CALCULATION 

3535 

3013 

DCA  XRT 1 

/SET  POINTER 

3536 

3413 

DCA  1  XRT 1 

/CLEAR  SECONDS 

3537 

3413 

DCA  1  XRT 1 

/MINUTES 

3540 

3413 

DCA  1  XRT 1 

/HOURS 

3541 

1  170 

TAD  KD 2000 

3542 

3413 

DCA  1  XRT  1 

/AN X  DAY  IS  OKAY 

3543 

5777 

/ 

JMP  MODJMP 

3544 

1371 

/ 

SW3F1, 

TAD  (PR0C4-1 

/SET  UP  REAL  TIME  CLOCK  FOR  TAPE  RECORDER 

3545 

3015 

DCA  XRT 3 

3546 

1130 

TAD  RECON 

3547 

41 15 

CALL  SW3FT 

3550 

3556 

3551 

3020 

DCA  20 

3552 

1 131 

TAD  RECOFF 

3553 

4115 

CALL  SW3FT ♦ 1 

3554 

3557 

3555 

5775 

/ 

JMP  SW8T 

/GO  START  TAPE  RECORDER 

3556 

3020 

/ 

SW3FT, 

DCA  20 

/CLEAR  SECONDS 

3557 

3021 

DCA  21 

3560 

3022 

DCA  22 

/CLEAR  HOURS 

3561 

3023 

DCA  23 

/CLEAR  DAYS 

3S62 

1370 

TAD  SW3FR 

/SET  UP  RETURN  FROM  ADDCLK 

3563 

3024 

DCA  24 

3S64 

1 160 

TAD  KD20 

/SET  UP  POINTER  FOR  ADDCLK 

3565 

3004 

DCA  4 

3566 

4115 

CALL  ADDTM+ 1 

/ADD  IT  ALL  UP 

3567 

5016 

3570 

5523 

SW3FK, 

RETURN 

3S7 1 

0503 

PAGE 

3572 

0477 

3573 

7766 

3574 

7773 

3575 

5071 

3576 

6622 

3577 

5412 

/ 


/ 
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/ 


/IS  THIS  THE  FIRST  TIME  THRU? 


3600 

1077 

SW4, 

TAD 

TSW4F 

3601 

7640 

SZA 

CLA 

3602 

5777 

JMP 

TSW4X 

3603 

7240 

STA 

3604 

3077 

/ 

DCA 

TSW4F 

3605 

1124 

TAD 

MEMFLG 

3606 

7650 

SNA 

CLA 

3607 

5777 

/ 

JMP 

TSW4X 

3610 

1376 

TAD 

(S4TMJ 

361 1 

5775 

/ 

S4TMJ , 

JMP 

SW3CM 

3612 

3631 

ST4M0- 1 

3613 

3635 

ST4M1-1 

3614 

3641 

ST4M2- 1 

3615 

3645 

ST4M3- 1 

3616 

3651 

ST4M4- 1 

3617 

3655 

ST4M5- 1 

3620 

3655 

ST4M6- 1 

3621 

3655 

ST4M7-1 

3622 

3661 

ST4M8-1 

3623 

3661 

ST4M9- 1 

3624 

3426 

ST4ERR- 1 

3625 

3426 

ST4ERR- 1 

3626 

3426 

ST4ERR- 1 

3627 

3426 

ST4ERR- 1 

3630 

3426 

ST4ERR- 1 

3631 

3661 

ST4M15-1 

/YES.  SET  FLAG 
/SHOULD  WE  IGNORE? 
/YES. 

/GET  TABLE  ADDRESS 
/AND  USE  COMMON  CODING 


/ 

ST4ERR=ST3MER 

/ 


/ 


3632 

3502 

ST4M0, 

3502 

3633 

5177 

-STNBLD-STRTLD-M IN ITA- I 

3634 

0000 

0 

3635 

3666 

/ 

SW4A 

3636 

3501 

/ 

ST4M1 , 

3501 

3637 

5177 

-STNBLD-STRTLD-M IN ITA- 1 

3640 

0000 

0 

3641 

3666 

/ 

ST4M2, 

SW4A 

3642 

5500 

5500 

3643 

5177 

-STNBLD-STRTLD-M I N I TA- 1 

3644 

0000 

0 

3645 

3666 

/ 

/ 

/ 

ST4M3, 

SW4A 

3646 

4110 

41 10 

3647 

7777 

-1 

3650 

0000 

0 

3651 

3670 

/ 

SW4B 

3652 

4100 

ST4M4, 

4100 

3653 

5177 

-STNBLD-STRTLD-M I N I TA- 1 

3654 

0000 

0 

3655 

3670 

SW4B 

/ 


ST4M5, 
ST4M6 , 


3656 

4710  ST4M7, 

4710 

3657 

7777 

-1 

3660 

0000 

0 

3661 

3672 

SW4C 

/ 


ST4M8, 

ST4M9, 


3662 

4700 

ST4M1S, 

4700 

3663 

7777 

-1 

3664 

0000 

0 

3665 

3672 

/ 

SW4A, 

SW4C 

3666 

3667 

4115 

3676 

CALL  DISTST 

3670 

6001 

SW4B, 

ION 

3671 

5777 

/ 

SK4C, 

JMP  TSW4X 

3672 

7240 

STA 

3673 

3063 

DC A  SMPIG 

3674 

6614 

SAMPLE 

3675 

5270 

/ 

DISTST, 

JMP  SW4B 

3676 

1374 

TAD  (252 

3677 

6604 

LODIS 

3700 

1373 

TAD  (7652 

3701 

6605 

HIDIS 

3702 

3133 

DC A  DISFL 

3703 

5523 

RETURN 

/ 


/PUT  TEST  PATTERN  IN  DISPLAY 

/MAKE  DATA  NOT  READY 


i 


/ 


3704 

4115 

SW5, 

CALL  PRSET 

/SET  UP  POINTERS  TO  DATA 

3705 

3255 

3706 

1772 

TAD  TSW1 

/SEE  WHAT  WE  ARE  DOING  NOW. 

3707 

7006 

RTL 

3710 

7630 

SZL  CLA 

371 1 

5771 

/ 

JMP  SW5K 

/GO  KILL 

3712 

7330 

K4000 

/TURN  ON  PRINTER  OR  CASSETTE 

3713 

6612 

OUTHI 

3714 

3007 

DCA  7 

/AND  WAIT  100  MS 

3715 

2007 

ISZ  7 

3716 

5315 

/ 

JMP  .-1 

3717 

1370 

TAD  (K2 

/WAS  JMP.  MAKE  K2  TO  ENABLE 

3720 

3772 

DCA  TSW 1 

3721 

1367 

TAD  (3000 

/GET  PRINTER  NUMBER 

3722 

0106 

AND  TFUN0 

3723 

7106 

CLL  RTL 

3724 

7006 

RTL 

3725 

7450 

SNA 

3726 

5766 

JMP  SV5K+2 

/DON’T  LET  SPARE  IN 

3727 

1365 

TAD  (-2 

/SET  FLAG  FOR  EASY  DECODING 

3730 

3102 

/ 

DCA  PRNTER 

/ 

/OPEN 

/ 

CASSETTE  IF  NEEDED 

3731 

1102 

TAD  PRNTER 

3732 

7750 

SPA  SNA  CLA 

3733 

5340 

JMP  SWSH 

3734 

1364 

TAD  (OUTBT1 

/SET  UP  SHORT  CALL  TO  CASSETTE 

3735 

3431 

DCA  1  PRPAR 

3736 

4115 

CALL  LEADER 

/AND  OUTPUT  LEADER 

3737 

4545 

3740 

4115 

SW5H, 

CALL  LF 

/OUTPUT  HEADER.  START  WITH  LF 

3741 

4621 

3742 

1  143 

TAD  CLMIN 

/SAVE  FULL  CLOCK  TO  PREVENT  CARRIES 

3743 

7002 

BSW 

3744 

1144 

TAD  CLHR 

3745 

3103 

DCA  DATPNT 

3746 

1145 

TAD  CLDAY 

/START  HEADER  WITH  DAY 

3747 

4115 

CALL  BPR1NT 

3750 

4343 

3751 

1103 

TAD  DATPNT 

3752 

0161 

AND  KD77 

/OUTPUT  HOUR 

3753 

4115 

CALL  BPRINT 

3754 

4343 

3755 

1 103 

TAD  DATPNT 

3756 

7002 

BSW 

3757 

0161 

AND  KD77 

/OUTPUT  MIN 

3760 

4115 

CALL  BPRINT 

3761 

4343 

/ 

3762 

5763 

JMP  SV5HP 

3763 

4000 

PAGE 

3764 

4532 

3765 

7776 

3766 

4337 

3767 

3800 

90 


3770  7305 

3771  4335 

3772  0204 

3773  7652 

3774  0252 

3775  3346 

3776  3612 

3777  0222 

SW5HP, 

/ 

/ 


/ 


4000 

6623 

FUNHI 

/GET  SERIAL  NUMBER 

4001 

7002 

BSW 

4002 

0161 

AND  KD77 

4003 

1377 

TAD  (GRPNO 

/GROUP  NUMBER 

4004 

4115 

CALL  BP HINT 

4005 

4343 

/ 

4006 

1 126 

TAD  SVMD 

/GET  MODE  NUMBER 

4007 

0157 

AND  KD17 

4010 

41  IS 

CALL  BPRINT 

401  1 

4343 

/ 

4012 

1 141 

TAD  TMIN 

/GET  ACCUMULATION  TIME 

4013 

4115 

CALL  BCVBIN 

4014 

6625 

4015 

4115 

CALL  BPRINT 

4016 

4343 

4017 

2432 

ISZ  I  DATOUT 

/CHANGE  DECIMAL  POINT  FOR 

SECONDS 

4020 

I  140 

TAD  TSEC 

4021 

4115 

CALL  BCDBIN 

/CONVERT  TO  BINARY  SO  BPRINT  WILL  WORK 

4022 

6625 

4023 

4115 

CALL  BPRINT 

4024 

4343 

/ 

4025 

3432 

DCA  1  DATOUT 

/RESET  DECIMAL  POINT 

4026 

1  174 

TAD  KD100 

/CHANNEL  NUMBER  OF  ANALOG 

INPUT 

4027 

0106 

AND  TFUN0 

4030 

7640 

SZA  CLA 

403  1 

7001 

f  AC 

/DUAL 

4032 

700  ( 

1  \C 

/SINGLE 

4033 

4115 

CALL  BPRINT 

4034 

4343 

/ 

4035 

7001 

I  AC 

'SET  UP  DEC.  PT. 

4(136 

3432 

IX  A  l  'ATOVT 

4037 

1  136 

TAD  KfTLVl 

/GET  CALIBRATOR  LEVELS 

4040 

41  15 

CALL  \<  R  1  NT 

4041 

4346 

4042 

1  137 

TAD  REFLV2 

4043 

4115 

CALL  APR! NT 

4044 

4346 

/ 

4045 

1 134 

TAD  XCAL 1 

/GET  GAIN  CONSTANTS 

4046 

41  15 

CALL  PRINT 

4047 

4351 

4050 

1  135 

TAD  KCAL2 

4051 

4115 

CALL  PRINT 

4052 

4351 

1 


4053 

3432 

DC A  I  DATOUT 

4054 

1174 

TAD  KD109 

4055 

0126 

AND  SVMD 

4056 

7640 

SZA  CLA 

4057 

7001 

I  AC 

4060 

7001 

I  AC 

4061 

4115 

CALL  BP R I NT 

4062 

4343 

/ 

4063 

1147 

/ 

TAD  THFLG 

4064 

4115 

CALL  BCDBIN 

4065 

6625 

4066 

4115 

CALL  BPRINT 

4067 

4343 

/ 

4070 

1130 

TAD  RECON 

4071 

4115 

CALL  BPRINT 

4072 

4343 

/ 

4073 

1131 

TAD  RECOFF 

4074 

4115 

CALL  BPRINT 

4075 

4343 

/ 

4076 

1127 

TAD  FORMAT 

4077 

3423 

DCA  I  TPSV 

4100 

1376 

TAD  (SW5C 

4101 

3433 

DCA  I  PRRET 

4102 

1423 

TAD  I  TPSV 

4103 

4115 

CALL  OCT BCD 

4104 

6363 

4105 

5775 

/ 

JMP  PRINT2 

4106 

4115 

SV5C, 

CALL  LF 

4107 

4621 

4110 

1041 

SW5C1, 

TAD  EMPTY 

4111 

7700 

SMA  CLA 

4112 

5333 

/ 

JMP  SW5D 

41  13 

1102 

TAD  PRNTER 

4114 

7640 

SZA  CLA 

4115 

5321 

JMP  SW5C2 

4116 

1374 

TAD  (SWSC1 

4117 

3433 

DCA  I  PRRET 

4120 

5773 

/ 

JMP  TSW1X 

4121 

4115 

SW5C2, 

CALL  BPRINT 

4122 

4343 

/ 

SW5L, 

4123 

4115 

CALL  LF 

4124 

4621 

4125 

1047 

TAD  LDNMT 

4126 

7700 

SMA  CLA 

4127 

5772 

/ 

JMP  SW5E 

4130 

4115 

CALL  BPRINT 

4131 

4343 

/ 

4132 

5771 

/ 

JMP  SWSK 

4133 

1034 

SW5D, 

TAD  STORE 

/RESET  DEC.  PT. 

/GET  PEAK  DETECTOR  CHANNEL 


/CH2 

/CHI 

/GET  CHI  THRESHOLD 


/GET  MINISAMPLE  ON  TIME 

/GET  MINISAMPLE  PERIOD 

/GET  MEMORY  FORMAT 
/IN  CASE  OF  CASSETTE 
/FAKE  A  SUBROUTINE  CALL 

/CONVERT  BINARY  TO  OCTAL  BCD 
/AND  SEND  IT 

/OK,  NOW  PUT  OUT  DATA  BLOCKS 
/ALL  DATA  DONE? 

/ARE  WE  USING  THE  WANG? 

/YES,  SET  UP  RETURN 

/THIS  ALLOWS  US  TO  GO  FOREVER 

/DONE.  BLOCK  NUMBER  IS  ZERO 

/OK,  NOW  PUT  OUT  LDN  BLOCKS 
/ALL  LDN  BLOCKS  DONE? 

/DONE.  BLOCK  NUMBER  IS  ZERO 
/GO  TURN  OFF  PRINTER 
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4134 

7041 

CIA 

4  1 35 

1 040 

TAD  Ol'TFLO 

4136 

700 1 

I  AC 

4137 

41  15 

CALL  SPRINT 

4140 

4343 

/ 

4141 

1037 

TAD  XR 16 

4  143 

3103 

1)C A  DATPNT 

4143 

1370 

TAD  (DM ASK 

4144 

41  15 

CALL  PRNIT 

4145 

4206 

4  146 

535  1 

JMP  .*3 

4147 

4064 

PKHTB-DMASK- 1 

4150 

0020 

/ 

20 

4151 

6000 

SKON 

4152 

7040 

CMA 

4153 

3002 

DCA  2 

4154 

1  103 

TAD  DATPNT 

4155 

3037 

DCA  XR 16 

4156 

2040 

IS'/  OUT  FLO 

4157 

5363 

.IMP  SW5D2 

4160 

1034 

TAD  STORE 

4161 

3040 

DCA  OL’TFLO 

4162 

3037 

/ 

DCA  XR  16 

4163 

1036 

SW5D2 , 

TAD  1NFL0 

4164 

7041 

CIA 

4  165 

1040 

/ 

TAD  OUTFLO 

4166 

5767 

JMP  FRS1U770G 

4167 

4200 

PAGE 

4170 

0167 

4171 

4335 

4172 

4273 

4173 

0210 

4  174 

4  1  10 

4175 

4362 

4176 

4  106 

4  177 

0144 

/ 

4200 

7650 

SNA  CLA 

420  1 

7040 

CMA 

4202 

304  1 

DCA  EMPTY 

4203 

2002 

IS/  2 

4204 

600  1 

ION 

42*  IS 

5777 

/ 

PRNIT, 

.IMP  SWSC 

4206 

3104 

DCA  PRFH 

4207 

1520 

TAD  I  STACK 

4210 

3776 

DCA  PRSVR 

4211 

2120 

ISZ  STACK 

4212 

7001 

PRNIT1 , 

I  AC 

4213 

3432 

DCA  I  DATOUT 

4214 

1504 

TAD  I  PRFH 

4215 

7450 

SNA 

4216 

5251 

JMP  PRNIT2 

4217 

0127 

AND  FORMAT 

4220 

7041 

CIA 

4221 

1504 

TAD  I  PRFH 

/OUTPUT  BLOCK  NUMBER 
/STARTING  AT  ONE 

/OUTPUT  A  BLOCK 

/PRINT  MEMORY  AS  SPECIFIED  IN  FORMAT 


/SO  WE  DON’T  CONFUSE  INTERRUPT 
/SAVE  FLAG 

/HIT  THE  END.  RESET  POINTERS 
/FIX  UP  BLOCK  POINTER 

/BUFFER  EMPTY? 


/SET  FLAG 

/WHAT  SHALL  WE  DO  WITH  INTERRUPT 
/IT'S  SAFE  NOW 


/GET  RETURN  ADDRESS  OFF  STACK 
/SAVE  OUT  OF  THE  WAY 

/SET  DECIMAL  POINT 
/GET  MASK 

/END  OF  TABLE 
/COMPARE  WITH  FORMAT 

/MAY  BE  MORE  THAN  ONE  BIT  SET 
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4222  2104 

4223  7640 

4224  5212 

4225  1776 

4226  3013 

4227  1413 

4230  1 104 

423 1  3007 

4232  1375 

4233  1 104 

4234  7650 

4235  2432 

4236  1 103 

4237  3006 

4240  1413 

4241  4115 

4242  7124 

4243  2103 

4244  7000 

4245  4115 

4246  6671 

4247  0007 

4250  5212 

4251  1776 

4252  3007 

4253  5407 


4254  4346 

4255  4346 

4256  4346 

4257  4351 

4260  435 1 

4261  4351 

4262  4343 

4263  4346 

4264  4346 

4265  4351 

4266  4351 

4267  4346 

4270  4346 

4271  4346 

4272  4346 


ISZ  PRFH 
SZA  CLA 
JMP  PRNIT1 

TAD  PRSVR 
DCA  XRT 1 
TAD  I  XRT1 
TAD  PRFH 
DCA  7 

TAD  (-PRHTB-6 
TAD  PRFH 
SNA  CLA 
ISZ  1  DATOUT 

TAD  DATPNT 
DCA  6 
TAD  I  XRT 1 
CALL  GETDAT 

ISZ  DATPNT 
NOP 

CALL  INDIR 
7 

^  JMP  PRNIT1 

PRNIT2,  TAD  PRSVR 
DCA  7 
JMP  I  7 


PRHTB,  APR I  NT 
APR I NT 
APR I NT 
PRINT 
PRINT 
PRINT 
BPRINT 

PRLTB,  APRINT 
APRINT 
PRINT 
PRINT 
APRINT 
APRINT 
APRINT 
APRINT 


/ 


4273  1042  SW5E, 

4274  7041 

4275  1046 

4276  7001 

4277  4115 

4300  4343 


TAD  LDNST 
CIA 

TAD  LDNOT 
I  AC 

CALL  BPRINT 


4301  1045 

4302  3103 

4303  1374 


TAD  LDN16 
DCA  DATPNT 
TAD  (LMASK 


/DON’T  USE  THIS  BIT  AGAIN 
/THIS  ONE  NOT  THERE 


'gET  POINTER  FROM  HIDING  PLACE 
/NOW  GET  TABLE  OFFSET 


'£0 JITTER  TO  POINTER  FOR  SUB  INDIR 
/CHANGE  THE  DECIMAL  POINT  ONLY  FOR  ONE  CASE 


/HERE  IT  IS’ 

/GET  DATA  ADDRESS 

/SET  UP  FOR  FIELD  ONE  CALL 

/GET  DATA  FIELD 

/AND  GET  DATA 


/AND  PRINT  IT 

/RETURNS  HERE  AFTER  PRINT.  KEEP  LOOKING 
/GET  RETURN  ADDRESS  AND  EXIT 


/GET  BLOCK  NUMBER 
/STARTING  AT  ONE 

/OUTPUT  A  BLOCK 
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4304  4115  CALL  PRNIT  /GET  THE  SPECIFIED  DATA  AND  PRINT 

4305  4206 

4306  5311  JMP  .+3 

4307  5103  PRLTB-LMASK- 1 

4310  0000  0 

/ 

/ 

4311  6000  SW5E1,  SKON  /SO  WE  DON’T  CONFUSE  INTERRUPT 

4312  7040  CMA 

4313  3002  DCA  2  /SAVE  FLAG 

4314  1103  TAD  DATPNT 

4315  3045  DCA  LDN16 

4316  2046  1SZ  LDNOT 

4317  5324  JMP  SW5E4 

4320  1042  TAD  LDNST  /HIT  THE  END.  RESET  POINTER 

4321  3046  DCA  LDNOT 

4322  1373  TAD  (LDNBOT 

4323  3045  DCA  LDN16  /FIX  UP  BLOCK  POINTER 

4324  1044  SW5E4 ,  TAD  LDNIN 

4325  7041  CIA 

4326  1046  TAD  LDNOT  /BUFFER  EMPTY? 

4327  7650  SNA  CLA 

4330  7040  CMA 

4331  3047  DCA  LDNMT  /SET  FLAG 

4332  2002  ISZ  2  /WHAT  SHALL  WE  DO  WITH  INTERRUPT? 

4333  6001  ION  /IT’S  SAFE  NOW 

4334  5772  JMP  SW5L 

/ 

/ 

4335  4115  SW5K,  CALL  LF 

4336  462 1 

4337  6612  OUTHI  /TURN  OFF  PRINTER 

4340  1371  TAD  (5000+TSW1X  /DELETE  PRINTER  FROM  CHAIN 

4341  3770  DCA  TSW1 

4342  5767  JMP  TSW5+4 

/ 

/ 


t 


/ 

/ 

/ 

DCA  I  DATOUT 

/SET  DECIMAL  POINT.  BUT  NOT  EVERY  TIME 

/ 

TAD  VALUE 

/THIS  IS  HOW  TO  CALL 

/ 

CALL  PRINT 

/CONVERT  FROM  LOG  TO  INTEGER  TO  BCD 

/ 

/ 

/OR  APRINT  FOR  URGE  DB’S 

/ 

/ 

/ 

/ 

OR . 

/ 

DCA  I  DATOUT 

/SET  DECIMAL  POINT.  BUT  NOT  EVERY  TIME 

/ 

TAD  VALUE 

/ 

/ 

CALL  BPRINT 

/BCD  CONVERSION  ONLY 

4343 

3423 

/ 

BPRINT, 

DCA  I  TPSV 

/SAVE  VALUE 

4344 

3002 

DCA  2 

/CLEAR  SIGN.  ONLY  PLUS  NUMBERS 

4345 

5354 

/ 

APRINT, 

JMP  PR  INTI 

4346 

41  IS 

CAUL  PDBCON 

/CONVERT  FROM  LOG  TO  INTEGER:  ALLOW  URGE  PLUS  NUMBERS 

4347 

6761 

4350 

5353 

/ 

PRINT, 

JMP  .*3 

4351 

41  15 

CALL  DBCON 

/CONVERT  FROM  LOG  TO  INTEGER:  ALLOW  ♦  OR  -  SMALL  NUMBERS 

4352 

6763 

4353 

3423 

DCA  I  TPSV 

/SAVE  CONVERTED  VALUE 

4354 

1520 

PRINT!, 

TAD  I  STACK 

/POP  RETURN  ADDRESS 

4355 

3433 

DCA  I  PRRET 

4356 

2120 

ISZ  STACK 

4357 

1423 

TAD  I  TPSV 

4360 

4115 

CALL  BCDCON 

/CONVERT  VALUE  TO  BCD 

4361 

6702 

/ 

PRINT2, 

;362 

6610 

OUTLO 

/AC  A  7  HAVE  LO.  3  HAS  HI 

4363 

1 102 

TAD  PRNTER 

/SELECT  DEVICE 

4364 

5766 

JMP  PRN2AA7700 

4366 

4400 

PAGE 

4367 

0226 

4370 

0204 

4371 

5210 

4372 

4123 

4373 

0572 

4374 

7157 

4375 

3516 

4376 

0543 

4377 

4106 

4400 

7440 

SZA 

4401 

5206 

JMP  PRNTST 

4402 

1003 

TAD  3 

/HIGH  DIGIT 

4403 

6611 

PRN2A, 

OUTMI 

4404 

1002 

TAD  2 

/SIGN 

4405 

5216 

/ 

/ 

JMP  PRN1A*1 

/AND  PRINT 
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4406 

7700 

PRNTST, 

SMA  CLA 

4407 

5233 

JMP  PRN3 

4410 

1003 

TAD  3 

/MUST  BE  THERMAL  PRINTER 

4411 

6611 

OUTMI 

4412 

1002 

TAD  2 

/GET  SIGN 

4413 

7002 

BSV 

/IN  PROPER  POSITION  . 

4414 

1432 

/ 

TAD  I  DATOUT 

/NOW  PUT  IN  DECIMAL  POINT  TOO 

4415 

1167 

/ 

PRN1A, 

TAD  KD4000 

/KEEP  MOTOR  RUNNING 

4416 

6612 

Ol-THI 

/GET  HIGH  BITS  SET 

4417 

6615 

OPR  I NT 

/SEND  THEM  ALL 

4420 

1216 

TAD  PRN1A+1 

/ABOUT  100  MS 

4421 

3007 

DCA  7 

4422 

6622 

PRNIB, 

FUNLO 

/WAIT  FOR  DATA  ACCEPTED 

4423 

0377 

AND  (2 

4424 

7650 

SNA  CLA 

4425 

5776 

JMP  TSW1X 

/DO  OTHER  THINGS  WHILE  WAITING  FOR  PRINTER 

4426 

2007 

ISZ  7 

4427 

5222 

JMP  PRN1B 

4430 

4115 

CALL  ERR0R2 

/ERROR.  TELL  PEOPLE  ABOUT  IT 

4431 

3324 

4432 

5775 

/ 

PRN3, 

JMP  SWSK+2 

/AND  KILL  PRINT  REQUEST 

4433 

1 155 

TAD  KM  12 

/SET  UP  FOR  12  BIT  WORD 

4434 

3425 

DCA  1  PRCNT 

4435 

1033 

TAD  PRRET 

4436 

3013 

DCA  XRT 1 

/SET  UP  SECOND  LEVEL  RETURN 

4437 

1433 

TAD  I  PRRET 

4440 

3413 

/ 

PRN3A , 

DCA  1  XRT 1 

4441 

7330 

K4000 

/GET  HIGH  ORDER  BIT  OF  WORD 

4442 

0423 

AND  I  TPSV 

/AND  UPDATE  CRC  AS  NEEDED 

4443 

1426 

TAD  I  PRREM 

/EASY  EXCLUSIVE  OR 

4444 

7700 

NMA  CLA 

4445 

5260 

/ 

JMP  0UT3B 

/SKIP  PROCEDURE  FOR  ZERO  RESULT 

4446 

1374 

TAD  (5234 

/X  IS  GENERATOR  POLYNOMIAL 

4447 

7040 

CMA 

/XBAR 

4450 

0426 

AND  I  PRREM 

/Y  AND  XBAR.  Y  IS  REMAINDER 

4451 

7421 

MOL 

/SAVE 

4452 

1426 

TAD  I  PRREM 

/Y 

4453 

7040 

CMA 

/YBAR 

4454 

4374 

AND  (5234 

/X  AND  YBAR 

4455 

7501 

MQA 

/INCLUSIVE  OR  (YAXB  +  XAYB) 

4456 

7120 

STL 

/SET  LOW  ORDER  BIT  TO  ONE 

4457 

5262 

/ 

0UT3B, 

JMP  .+3 

4460 

7100 

CLL 

/SET  LOW  ORDER  BIT  TO  ZERO 

4461 

1426 

TAD  I  PRREM 

/USE  OLD  REMAINDER 

4462 

7004 

RAL 

/SHIFT  LEFT 

4463 

3426 

DCA  I  PRREM 

/AND  SAVE  NEW  REMAINDER 

4464 

1423 

TAD  I  TPSV 

/SHIFT  DATA  WORD 

4465 

7104 

CLL  RAL 

4466 

3423 

/ 

DCA  I  TPSV 

4467 

41  15 

CALL  INDIR 

4470 

6671 

4471 

0022 

/ 

B I TOUT 

/AND  OUTPUT  IT 

97 


4472 

2424 

ISZ  I  PRSTCT 

/DONE  WITH  51  BITS? 

4473 

5320 

JMP  PRN3D 

/NO 

4474 

1155 

TAD  KM  12 

/YES.  OUTPUT  REMAINDER 

4475 

3^24 

DCA  I  PRSTCT 

4476 

1426 

PRN3C, 

TAD  I  PRREM 

/ONE  BIT  AT  A  TIME 

4477 

7104 

CLL  RAL 

4500 

3426 

DCA  I  PRREM 

4501 

4115 

CALL  ISD1R 

4502 

6671 

4503 

0022 

BITOUT 

4504 

2424 

ISZ  I  PRSTCT 

4505 

5276 

/ 

JMP  PRN3C 

4506 

1431 

TAD  I  PRPAR 

/OK.  VOW  OUTPUT  PARITY 

4507 

7010 

RAR 

4510 

7220 

CLA  CML 

/SEND  ODD  PARITY 

4511 

4115 

CALL  INDIR 

4512 

6671 

4513 

0022 

BITOUT 

4514 

1373 

TAD  (-63 

/RESET  DATA  BIT  COUNTER 

4515 

3424 

DCA  I  PRSTCT 

4516 

3426 

DCA  I  PRREM 

/RESET  REMAINDER 

4517 

3431 

DCA  I  PRPAR 

/AND  PARITY 

4520 

2425 

PRN3D, 

ISZ  I  PRCNT 

/12  BITS? 

4521 

5241 

JMP  PRN3A 

4522 

5772 

/ 

JMP  RET2 

/EXIT  FROM  SECOND  LEVEL 

4523 

7430 

/ 

OUTBIT, 

SZL 

/OUTPUT  DATA  HELD  IN  LINK 

4524 

2431 

ISZ  I  PRPAR 

/UPDATE  PARITY 

4525 

1427 

TAD  I  PRBYT 

/BUILD  8  BIT  BYTE 

4526 

7004 

RAL 

4527 

3427 

DCA  I  PRBYT 

4530 

2430 

ISZ  I  PRBYTC 

/DONE  8  BITS? 

4531 

5523 

/ 

OUTBT1, 

RETURN 

/NOT  YET? 

4532 

1520 

TAD  I  STACK 

/SAVE  CALL  ON  LEVEL  ONE 

4533 

3433 

DCA  I  PRRET 

4534 

2120 

ISZ  STACK 

4535 

1371 

TAD  (-10 

/RESET  BYTE  COUNTER 

4536 

3430 

DCA  I  PRBYTC 

4537 

1427 

TAD  I  PRBYT 

4540 

7104 

CLL  RAL 

/KEEP  MOTOR  RUNNING  BY  SETTING  HIGH  BIT 

4541 

7130 

STL  RAR 

4542 

6612 

OUTHI 

/SEND  HI  ONLY 

4543 

6615 

OPRINT 

/LOAD  TRANSMITTER 

4544 

5776 

JMP  TSV1X 

/DO  OTHER  THINGS  WHILE  WAITING 

/ 


/ 
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/ 

/ 

4545 

1033 

LEADER, 

TAD  PRRET 

4546 

3013 

DCA  XRT 1 

454? 

1520 

TAD  1  STACK 

4550 

3413 

DCA  I  XRT I 

4551 

2120 

ISZ  STACK 

4552 

1 166 

TAD  KD7760 

4553 

3426 

DCA  1  PRREM 

4554 

7350 

CLL  STA  RAR 

4555 

3427 

DCA  I  PRBYT 

4556 

4115 

CALL  INDIR 

4S57 

6671 

4560 

0031 

PRPAR 

456! 

2426 

ISZ  I  PRREM 

4562 

5356 

/ 

JMP  .-4 

4563 

1370 

TAD  (13 

4564 

3427 

/ 

DCA  I  PRBYT 

4565 

5767 

.IMP  RET267700 

4567 

4600 

PAGE 

4570 

0013 

4571 

7770 

4572 

4614 

4573 

7715 

4574 

5234 

4575 

4337 

4576 

0210 

4577 

0002 

/ 

/ 

4600 

41 15 

CALL  INDIR 

4601 

6671 

4602 

0031 

PRPAR 

4603 

1  163 

TAD  KD320 

4604 

3427 

I)TA  I  PRBYT 

4605 

41  15 

CALL  INDIR 

4606 

6671 

4607 

003  1 

PRPAR 

4610 

3426 

DCA  I  PRREM 

4611 

3431 

DCA  I  PRPAR 

4612 

1377 

TAD  <-63 

4613 

3424 

/ 

DCA  I  PRSTCT 

4614 

1033 

KET2, 

TAD  PRRET 

4615 

3053 

DCA  XRT  1 

4616 

1413 

TAD  I  XRT 1 

4617 

3007 

DCA  7 

4620 

5407 

/ 

JMP  I  7 

/ 

/PUT  RETURN  ON  SECOND  LEVEL 

/OUTPUT  16  LEADER  BYTES 
/THIS  CAN  HOLD  IT  FOR  A  WHILE 
/SEND  RUBS 

/SEND  8  BITS  AT  A  TIME 
/GOOD  PLACE  TO  KEEP  ADDRESS 

/NOW  PUT  OUT  SYNCH  BYTES 


/THIS  IS  BIT  INVERTED  FROM  FIRST  ONE 

/RESET  REMAINDER 
/AND  PARITY 

/SET  UP  DATA  BIT  COUNT 
/RETURN  FROM  SECOND  LEVEL 
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/ 


/ 


4621 

3432 

LF, 

DCA  I  DATOUT 

/CLEAR  DECIMAL  POINT 

4622 

1520 

TAD  I  STACK 

/POP  RETURN  OFF  STACK 

4623 

3433 

DCA  I  PRRET 

/SAVE  ON  LEVEL  ONE 

4624 

2120 

ISZ  STACK 

4625 

1102 

TAD  PRNTER 

4626 

7440 

SZA 

4627 

5234 

/ 

JMP  LF1 

4630 

6610 

OUTLO 

/PROGRAMMABLE  CALCULATOR.  PUT 

OUT  SYNCH  MARK 

4631 

6611 

OUTMI 

4632 

7305 

K2 

4633 

5776 

/ 

LF1 , 

JMP  PRN1A+ 1 

/SEND  HIGH 

4634 

7700 

SMA  CLA 

4635 

5243 

JMP  LF2 

4636 

7240 

STA 

/FOR  THERMAL  PRINTER,  SEND  ALL 

ONES 

4637 

6610 

OUTLO 

4640 

7240 

STA 

4641 

661 1 

OUTMI 

4642 

5775 

/ 

LF2, 

JMP  PRN1A 

/BUT  NO  DECIMAL  POINTS  OR  SIGN 

4643 

1374 

TAD  (-5 

/PUT  OUT  BLANKS  TO  CLEAR  OUT  ECC 

4644 

3103 

DCA  DATPNT 

4645 

1433 

TAD  I  PRRET 

/SAVE  RETURN  ON  LEVEL  3 

4646 

3432 

DCA  I  DATOUT 

4647 

4115 

LF2A, 

CALL  BPRINT 

/PRINT  A  BLANK 

4650 

4343 

/ 

LF2B, 

4651 

2103 

ISZ  DATPNT 

4652 

5247 

JMP  LF2A 

4653 

1432 

TAD  I  DATOUT 

/DONE.  GET  RETURN 

4654 

3007 

DCA  7 

4655 

5407 

JMP  I  7 

/AND  EXIT 

/ 


/ 

/ 

/ 

THIS  IS  CLOCK 

SERVICE  ROUTINE 

4656 

6616 

/ 

SW7, 

CLCF 

/CLEAR  FLAG  AND  ADVANCE  CLOCK  WITH  INTERRUPT  OFF 

4657 

6000 

SKON 

/TEST  FOR  MACHINE  INTERRUPT  ON 

4660 

7240 

STA 

4661 

3003 

/ 

DC  A  3 

/save  info  he;:s 

4662 

4115 

CALL  ADDCLK 

4663 

5010 

4664 

0141 

SW7A, 

CLSEC- 1 

4665 

0001 

1 

4666 

0000 

0 

4667 

0000 

0 

4670 

0000 

/ 

0 

4671 

2003 

ISZ  3 

/RESTORE  INTERRUPT  IF  NECESSARY 

4672 

6001 

ION 

4673 

1373 

TAD  (PRBUF 

/SET  UP  POINTER  TO  PROCESS  BUFFER 

4674 

3100 

DCA  PKPNT 

4675 

1 100 

SW7B, 

TAD  PRPNT 

/SET  UP  SECOND  POINTER  TO  PROCESS  BUFFER 

4676 

3021 

DCA  21 

4677 

1264 

TAD  SW7A 

/SET  UP  POINTER  TO  CLOCK 

4700 

3013 

DCA  XRT 1 

4701 

1372 

TAD  (-4 

4702 

3007 

/ 

SW7C, 

DCA  7 

/4  WORDS  PER  BLOCK 

4703 

1421 

TAD  I  21 

/GET  PROCESS  WORD 

4704 

7510 

SPA 

4705 

5331 

JMP  SW7D 

/NO  PROCESS  HERE 

4706 

7106 

CLL  RTL 

/CHECK  FOR  ALL  PASS  FLAG 

4707 

7630 

S'/L  CLA 

4710 

5321 

JMP  SWC1 

471  1 

1421 

TAD  1  21 

4712 

7041 

CIA 

4713 

1413 

TAD  I  XRT 1 

/A  MATCH? 

4714 

7640 

SZA  CLA 

4715 

5331 

JMP  SW7D 

/NO.  EXIT 

4716 

2021 

ISZ  21 

/ADVANCE  POINTER  FOR  NEXT  COMPARE 

4717 

2007 

ISZ  7 

/DONE  ALL? 

4720 

5303 

/ 

SWC1, 

JMP  SW7C 

/NOPE 

4721 

1371 

TAD  (-PRBUF 

/FOUND  A  MATCH.  GO  PROCESS 

4722 

1  100 

TAD  PRPNT 

/CALCULATE  SUBSCRIPT 

4723 

71  12 

CLL  RTR 

/DIVIDE  BY  4 

4724 

1370 

TAD  (PRTAB 

4725 

3007 

DCA  7 

4726 

1407 

TAD  1  7 

/GET  ADDRESS  OF  PROCESS 

4727 

3007 

DCA  7 

4730 

5407 

/ 

SW7D, 

JMP  I  7 

/GO  THERE 

4731 

7307 

K4 

/ADVANCE  TO  NEXT  PROCESS 

4732 

1  100 

TAD  PRPNT 

4733 

3100 

DCA  PRPNT 

4734 

1367 

TAD  (-PRDAT 

4735 

1  100 

TAD  PRPNT 

/DONE  WITH  ALL? 

4736 

7710 

SPA  CLA 

4737 

5275 

JMP  SV7B 

/NO.  TRY  AGAIN 

4740 

5766 

JMP  TSW7<-4 

/YES.  TRY  SOMETHING  ELSE 
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/ 


/ 


4741 

3344 

PRTAB, 

SW3+5 

4742 

4756 

SAUTOC 

4743 

4751 

LDNPUT 

4744 

5211 

SW8T0 

4745 

3544 

SW3F1 

4746 

5002 

SUB  10 

4747 

5000 

AD  10 

4750 

1636 

/ 

NAUTOC 

/ 

4751 

1365 

LDNPUT, 

TAD  (-40-1 

4752 

0124 

AND  MEMFLG 

4753 

1175 

TAD  KD40 

4754 

3124 

DCA  MEMFLG 

4755 

5331 

/ 

JMP  SW7D 

/ 

4756 

7307 

SAUTOC, 

K4 

4757 

7421 

MQL 

4760 

1124 

TAD  MEMFLG 

4761 

7501 

MQA 

4762 

3124 

DCA  MEMFLG 

4763 

5331 

/ 

JMP  SW7D 

/ 

4765 

7737 

PAGE 

4766 

0232 

4767 

7250 

4770 

4741 

4771 

7310 

4772 

7774 

4773 

0470 

4774 

7773 

4775 

44  IS 

4776 

4416 

4777 

7715 

/ 

/ 

5000 

1377 

AD  10, 

TAD  (0324 

5001 

7410 

SKP 

5002 

1376 

SUB10, 

TAD  (-0324 

5003 

1146 

TAD  THOLD 

5004 

3146 

DCA  THOLD 

5005 

4115 

CALL  XFUN3 

5006 

5740 

5007 

5775 

/ 

JMP  SW7D 

/AUTO  START 
/AUTO  CALIBRATION 
/PUT  LDN  IN  MEMORY 

/DONE  WITH  ON  PERIOD.  TURN  OFF  TAPE  RECORDER 

/SET  UP  TAPE  RECORDER  AGAIN  AND  TURN  IT  ON 

/THRESHOLD  ADJUST  TIME 

/THRESHOLD  ADJUST  TIME 

/TAKE  SHORT  BLOCK  AND  DO  AUTOSTART 


/PUT  OUT  LDN  AT  NEXT  BLOCK 


/LOOK  FOR  OTHER  MATCHES 


/SET  UP  AUTOCAL  AT  THE  BEGINNING  OF  NEXT  BLOCK 


/10  DB  IS  3.2446  OCTAL  IN  INTERNAL  REPRESENTATION 
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/ 


/ 


5010 

1520 

ADDCLK , 

TAD  I  STACK 

5011 

3004 

DCA  4 

5012 

2120 

/ 

ISZ  STACK 

5013 

1404 

TAD  I  4 

5014 

2004 

/ 

ISZ  4 

5015 

3015 

addtm , 

DCA  XRT3 

5016 

1374 

TAD  (CLSEC-l 

5017 

3013 

/ 

DCA  XRT  1 

DECIMAL 

/ 

5020 

3006 

DCA  6 

5021 

1373 

TAD  (-60 

5022 

4115 

CALL  ADDT 

5023 

5036 

5024 

1373 

TAD  (-60 

5025 

4115 

CALL  ADDT 

5026 

5036 

5027 

1372 

TAD  (-24 

5030 

4115 

CALL  ADDT 

5031 

5036 

5032 

1371 

TAD  (-365 

5033 

4115 

CALL  ADDT 

5034 

5036 

/ 

OCTAL 

/ 

5035 

5404 

/ 

JMP  I  4 

/ 

5036 

3007 

ADDT, 

DCA  7 

5037 

1006 

TAD  6 

5040 

1413 

TAD  I  XRT 1 

5041 

1404 

TAD  1  4 

5042 

2004 

ISZ  4 

5043 

3005 

DCA  5 

5044 

3006 

DCA  6 

5045 

1005 

TAD  5 

5046 

4115 

CALL  DIVD 

5047 

6200 

5050 

7200 

CLA 

5051 

1005 

TAD  5 

5052 

3415 

DCA  I  XRT3 

5053 

5523 

RETURN 

/GET  RETURN  ADDRESS  OFF  STACK 


/GET  DESTINATION  ADDRESS 


/SAVE  DESTINATION  ADDRESS 
/GET  CLOCK  POINTER  SET  UP 

/CLEAR  CARRIES 
/SECONDS 

/MINUTES 


/HOURS 


/DAYS 


/DONE.  EXIT 


/SAVE  DIVISOR 

/GET  CARRIES  FROM  PREVIOUS  RUN 

/CLOCK 

/NEW  NUMBER 

/SAVE  RESULT  TEMPORARILY 
/CLEAR  QUOTIENT 


/GET  REMAINDER 
/RESULT 


/ 

/ 


/ 


5054 

1101 

SV8, 

TAD  TSW8F 

/IS  THIS  FIRST  TIME  THROUGH? 

5055 

7640 

SZA  CLA 

5056 

5770 

JMP  TSW8X 

5057 

7240 

STA 

5060 

3101 

DCA  TSW8F 

/YES.  SET  FLAG  TO  PREVENT  REPEATS 

5061 

4115 

SW8A, 

CALL  SV8C 

/TEST  FLAGS 

5062 

5145 

5063 

5770 

JMP  TSW8X 

/NO  ACTION  RETURN 

5064 

5271 

JMP  SV8T 

/GO  TURN  ON  TAPE  RECORDER 

5065 

4115 

CALL  SETMD 

/YES.  FLASH  ON  START  LIGHT 

5066 

5506 

S067 

3177 

-VDIS-STRTLD-STNBLD- 1 

5070 

0200 

/ 

SWOT , 

STRTLD 

5071 

1367 

TAD  (STATIN 

/YES.  ENABLE  FLAG  TESTING 

5072 

3766 

DCA  TPOUT 

5073 

4115 

CALL  TPSET 

/SET  UP  POINTERS 

5074 

5247 

5075 

4115 

CALL  SETMD 

5076 

5506 

5077 

5777 

-MINITA-1 

/START  MOTOR 

5100 

2000 

/ 

MINITA 

5101 

1365 

TAD  (TRBIT1 

/SET  UP  SHORT  PRINT 

5102 

3431 

DCA  I  PRPAR 

5103 

4115 

CALL  LEADER 

/OUTPUT  LEADER 

5104 

4545 

/ 

5105 

6623 

FUNHI 

/OUTPUT  SERIAL  NUMBER 

5106 

7002 

BSN 

/GET  UNIT  NUMBER 

5107 

0161 

AND  KD77 

5110 

1364 

TAD  (GRPNO 

/AND  GROUP  NUMBER 

5111 

4115 

CALL  TR3 

5112 

5235 

/ 

5113 

1105 

TAD  TRBLK 

/PUT  OUT  BLOCK  NUMBER 

5114 

2105 

ISZ  TRBLK 

5115 

7000 

NOP 

51 16 

4115 

CALL  TR3 

5117 

5235 

/ 

5120 

1144 

TAD  CLHR 

/SEND  DAY  BUT  SAVE  HOUR  AND  MIN  TO  PREVENT  CARRIES 

5121 

3006 

DCA  6 

5122 

1162 

TAD  KD144 

/PACK  HR*100+MIN 

5123 

3005 

DCA  5 

5124 

4115 

CALL  MPLY 

5125 

6736 

5126 

1143 

TAD  CLMIN 

5127 

3432 

DCA  I  DATOUT 

5130 

1145 

TAD  CLDAY 

5131 

4115 

CALL  TR3 

/SEND  DAY 

5132 

5235 

5133 

1432 

TAD  I  DATOUT 

5134 

4115 

CALL  TR3 

/SEND  HOUR  AND  MINUTES  COMBINED 

5135 

5235 

/ 

5136 

4115 

CALL  TR3 

/SEND  BLANKS  TO  ACT  AS  FILLER 

5137 

5235 

5140 

4115 

CALL  TR3 
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5141 

5142 

5143 

5144 

/ 

/ 


/ 


5145 

1  156 

SW8C, 

TAD  KD 10 

5146 

0124 

AND  MEMFLG 

5147 

7650 

SNA  CLA 

5150 

5523 

RETURN 

5151 

2520 

ISZ  1  STACK 

5152 

1 157 

TAD  KD  17 

5153 

0125 

AND  MODE 

5154 

1362 

TAD  (-3 

5155 

7640 

SZA  CLA 

5156 

5523 

RETURN 

5157 

2520 

ISZ  I  STACK 

5160 

5523 

/ 

RETURN 

/ 

5162 

7775 

PAGE 

5163 

5253 

5164 

0144 

5165 

5225 

5166 

0247 

5167 

6626 

5170 

0241 

5171 

7223 

5172 

7750 

5173 

7704 

5174 

0141 

5175 

4731 

5176 

7454 

5177 

0324 

/ 

/ 

5200 

3101 

SW8L , 

DCA  TSW8F 

5201 

4115 

CALL  SW8C 

5202 

5145 

5203 

5777 

JMP  TSW8X 

5204 

5211 

JMP  SW8'  J 

5205 

4115 

CALL  SETMD 

5206 

5506 

5207 

7177 

-STRTLD-STNBLD- 

5210 

0000 

/ 

0 

5211 

4115 

SW8T0, 

CALL  SETMD 

5212 

5506 

5213 

5777 

-MINITA-1 

5214 

0000 

0 

5215 

5776 

/ 

JMP  SW8T1 

/ 

/ 

5216 

7430 

TRBIT , 

SZL 

5217 

2431 

ISZ  I  PRPAR 

5220 

1427 

TAD  I  PRBYT 

5221 

7004 

RAL 

5222 

3427 

DCA  I  PRBYT 

/DO  OTHER  THINGS  WHILE  WAITING 

/THRESHOLD  CONTROL  OF  TAPE? 

/NO.  NO  ACTION 
/IS  IT  MODE  3? 

/NO. 

/FIDDLE  WITH  LIGHTS 


/CLEAR  FLAG  TO  PREVENT  REPEATS 
/TEST  FLAGS 

/NO  ACTION  RETURN 
/JUST  TURN  OFF  TAPE 
/YES.  KILL  START  LIGHT 

/TURN  OFF  MINITAPE  MOTOR 

/ALL  DONE 

/OUTPUT  DATA  HELD  IN  LINK 
/UPDATE  PARITY 
/BUILD  8  BIT  BYTE 


5235 

1363 

3766 

5770 


SW8T 1 ,  TAD  (5000+TPOUTX  /TURN  OFF  CASSETTE  FLAG  CHECK 
DC A  TPOUT 
JMP  TSW8X 
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5223 

2430 

ISZ  I  PRBYTC 

5224 

5523 

/ 

TRBITl , 

RETURN 

5225 

1520 

TAD  I  STACK 

5226 

3433 

DC A  I  PRRET 

5227 

2120 

ISZ  STACK 

5230 

1375 

TAD  (-10 

5231 

3430 

DCA  I  PRBYTC 

5232 

1427 

TAD  I  PRBYT 

5233 

6617 

TOUT 

5234 

5774 

/ 

JMP  TPOUTX 

S235 

3423 

TR3, 

DCA  I  TPSV 

5236 

1520 

TAD  I  STACK 

5237 

3433 

DCA  I  PRRET 

5240 

2120 

ISZ  STACK 

5241 

5773 

/ 

/ 

JMP  PRN3 

5242 

4115 

TAPOUT, 

CALL  TPSET 

5243 

5247 

5244 

1433 

TAD  I  PRRET 

5245 

3007 

DCA  7 

5246 

5407 

/ 

/ 

JMP  I  7 

5247 

137'. 

TPSET, 

TAD  ( (TRBIT 

5250 

3022 

DCA  B I TOUT 

S251 

1370 

TAD  (TRDAT 

5252 

5767 

/ 

/ 

/ 

JMP  PRSET1 

/DONE? 

/SAVE  RETURN  ON  LEVEL  ONE 

/RESTORE  COUNTER 
/SEND  DATA 

/WAIT  FOR  FLAG 

/SAVE  VALUE 
/POP  RETURN 

/GO  CALCULATE  CRC  ETC. 

/FOUND  FLAG.  SET  UP  POINTERS 
/AND  GET  RETURN  ADDRESS 

/SET  OUTBIT  ROUTINE 

/AND  DATA  BUFFER 
/COMMON  CODING 
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/ 


/ 


5253 

4115 

VFUN0, 

CALL  FUN0A 

/GET  CALIBRATOR  LEVEL  FROM  SWITCHES 

5254 

5271 

5255 

3136 

DCA  REFLV1 

/STORE  AWAY 

5256 

1136 

FUN0, 

TAD  REFLV1 

/GET  CAL  LEVEL  AND  DISPLAY 

5257 

4115 

CALL  PDBCON 

5260 

6761 

5261 

3007 

FUN0B, 

DCA  7 

5262 

1 171 

TAD  KD1000 

/SET  D.P. 

5263 

5766 

/ 

WSFN0, 

JMP  FUN  IB 

5264 

4115 

CALL  FUN0A 

/GET  DATA 

5265 

5271 

5266 

3137 

DCA  REFLV2 

/STORE  AWAY 

5267 

1 137 

SFUN0, 

TAD  REFLV2 

/GET  CH2  CAL  LEVEL  AND  DISPLAY 

5270 

5257 

/ 

JMP  FUN0+ 1 

5271 

6621 

/ 

FUN0A , 

SWREG 

/GET  NUMBER  FROM  SWITCHES 

5272 

4115 

CALL  BCDBIN 

/CONVERT  TO  BIN 

5273 

6625 

5274 

1365 

TAD  (-1135 

/60.5 

5275 

7510 

SPA 

/12  BIT  ADD  OK  HERE 

5276 

1364 

TAD  (1750 

/LESS  THAN  60.5  —  ADD  100 

5277 

1363 

TAD  (1135 

/RESTORE 

5300 

41 15 

CALL  DPMP 

/MULTIPLY  BY  .03321928 

5301 

7011 

5302 

0210 

0210 

/OR  .0210041703  OCTAL 

5303 

0417 

0417 

/=  l/( 10*10*LOG10(2>> 

5304 

5523 

/ 

/ 

/ 

WFUN1, 

RETURN 

/GOT  IT  DONE 

5305 

1362 

TAD  (PR0C2-1 

5306 

3013 

DCA  XRT 1 

/CLEAR  PROCESS  BUFFER  EXCEPT  FOR  AUTO  START 

5307 

1361 

TAD  (PR0C2-PRDAT 

5310 

3007 

DCA  7 

5311 

7330 

R4000 

5312 

3413 

DCA  1  XRT  1 

5313 

2007 

ISZ  7 

5314 

531  1 

/ 

JMP  .-3 

5315 

6621 

SWREG 

/GET  MODE  NUMBER  FROM  SWITCHES 

5316 

0157 

AND  KD17 

/DELETE  EXTRANEOUS 

5317 

3007 

DCA  7 

5320 

1  174 

TAD  KD100 

/SAVE  ONLY  PEAK 

5321 

0125 

AND  MODE 

5322 

1360 

TAD  (VDISfSTNBLD  /GET  STANDBY  AND  DISPLAY  ON 

5323 

1007 

TAD  7 

/AND  MODE  # 

5324 

3006 

/ 

DCA  6 

5325 

1 125 

TAD  MODE 

/IS  THERE  ANYTHING  TO  SAVE? 

5326 

0157 

AND  KD17 

5327 

1357 

TAD  (-5 

/MUST  BE  MODE  5  TO  9 

5330 

7510 

SPA 

5331 

5347 

JMP  WFUN1A 

5332 

1357 

TAD  (-5 

5333 

7700 

SMA  CLA 

5334 

5347 

JMP  WFUN1A 
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/ARE  WE  TAXING  DATA? 


! 

i 


i 


5335 

1124 

TAD  MEMFLG 

/ARE  WE  TAXING  DATA? 

5336 

7700 

SMA  CLA 

5337 

5347 

JMP  WFUN1A 

5340 

3133 

DCA  DISFL 

/YES.  XEEP  SHORT  BLOCX 

5341 

6614 

SAMPLE 

5342 

1133 

TAD  DISFL 

5343 

7650 

SNA  CLA 

5344 

5342 

JMP  .-2 

5345 

1125 

TAD  MODE 

/SAVE  OLD  MODE 

5346 

5351 

/ 

WFUN1A, 

JMP  .+3 

5347 

7200 

CLA 

5350 

1006 

TAD  6 

5351 

3126 

DCA  SVMD 

5352 

1006 

TAD  6 

5353 

3125 

DCA  MODE 

5354 

1125 

/ 

TAD  MODE 

5355 

5756 

/ 

JMP  MODJMPA7700 

5356 

5400 

PAGE 

5357 

7773 

5360 

4400 

5361 

7744 

5362 

0473 

5363 

1135 

5364 

1750 

5365 

6643 

5366 

5606 

5367 

3260 

5370 

0544 

5371 

5372 

5372 

5216 

5373 

4433 

5374 

0253 

5375 

7770 

5376 

5142 

5377 

0241 

/ 

5400 

6607 

/ 

SELMD 

/FIX  UP  LIGHTS 

5401 

3101 

/ 

DCA  TSW8F 

/CLEAR  THRESHOLD  FLAG 

5402 

1377 

TAD  (TABMJ 

/SET  UP  JUMP  TO  MODE  PROCESS 

5403 

1007 

TAD  7 

5404 

3007 

DCA  7 

5405 

1407 

TAD  I  7 

5406 

3014 

DCA  XRT2 

5407 

6002 

IOF 

5410 

1414 

TAD  I  XRT2 

5411 

3124 

DCA  MEMFLG 

5412 

1414 

MODJMP , 

TAD  I  XRT2 

5413 

3007 

DCA  7 

5414 

5407 

/ 

TABMJ, 

JMP  1  7 

5415 

5434 

TABM0- 1 

5416 

5434 

T ABM  1-1 

5417 

5441 

TABM2- 1 

5420 

5444 

TABM3- 1 

5421 

5447 

TABM4- 1 
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5422 

5441 

5423 

5452 

5424 

5456 

5425 

5452 

5426 

5456 

5427 

5461 

5430 

5461 

5431 

5461 

5432 

5461 

5433 

5461 

5434 

5441 

/ 

/ 

/ 

/ 

TABM0, 

5435 

0100 

TABM1, 

5436 

5537 

5437 

3510 

5440 

5464 

5441 

0005 

/ 

/ 

TABM2, 

TABMS, 

5442 

0100 

TABM15 

5443 

5464 

5444 

0001 

/ 

5445 

4110 

TABM3, 

5446 

5521 

5447 

5000 

/ 

5450 

0100 

TABM4, 

5451 

S52 1 

5452 

5000 

/ 

TABM6 , 

5453 

0100 

TABM8, 

5454 

5527 

5455 

5521 

5456 

0140 

/ 

TABM7, 

5457 

0100 

TABM9, 

5460 

5521 

5461 

0140 

/ 

5462 

0000 

TABMER , 

5463 

6622 

/ 

5464 

1414 

WFUN1C, 

5465 

3140 

5466 

3141 

5467 

41 15 

VFLN1D, 

5470 

5474 

547! 

4115 

5472 

3273 

5473 

5776 

TABM5-1 
TABM6- 1 
TABM7-  I 
TABM8- 1 
TABM9- 1 
TABMER- I 
TABMER- I 
TABMER- 1 
TABMER- 1 
TABMER- 1 
TABM15-1 


100 

VFUNtG 

SW3C 

WFUN1C 

5 


100 

UFVN1C 

1 


4110 

VFVtilE 

5000 

100 

WFL'NIE 

5000 


100 

WFUN1F 
WF11N  IE 
140 


100 

WFUN1E 

140 


TAD  I  XRT2 
DCA  TSEC 
DCA  TMIN 
CALL  TTSET 

CALL  XSV3A 

JMP  FUN  1 


5474 

4115 

TTSET, 

CALL  XFUN3 

5475 

5740 

5476 

1 141 

TAD  TMIN 

5477 

7450 

SNA 

5500 

5303 

JMP  . +3 

5501 

6601 

MIN 

5502 

5523 

RETURN 

5503 

1 140 

TAD  TSEC 

5504 

6600 

SEC 

5505 

5523 

/ 

SETMD, 

RETURN 

5506 

7240 

STA 

5507 

1520 

TAD  1  STACK 

5510 

3013 

DCA  XRT1 

5511 

2120 

ISZ  STACK 

5512 

1413 

TAD  I  XRT 1 

5513 

0125 

AND  MODE 

5514 

1413 

TAD  1  XRT1 

5515 

3125 

DCA  MODE 

5516 

1125 

TAD  MODE 

5517 

6607 

SELMD 

5520 

5413 

/ 

WFUN1E, 

JMP  I  XRT 1 

5521 

1414 

TAD  I  XRT2 

5522 

3141 

DCA  TMIN 

5523 

3140 

DCA  TSEC 

5524 

4115 

CALL  ACCLR 

/CLEAR  LDN  BUFFERS 

5525 

7703 

5526 

5267 

/ 

WFUN1F, 

JMP  VFUN1D 

5527 

4115 

CALL  ADDCLK 

/SET  VIP  AVJTOCAL  EVERT  SIX  HOURS 

5530 

5010 

5531 

0473 

PR0C2-1 

5532 

0000 

0 

5533 

0000 

0 

5534 

0006 

6 

5535 

0000 

0 

5536 

5212 

/ 

/ 

JMP  MODJMP 

5537 

4115 

/ 

/ 

VFUN1G, 

CALL  SETMD 

5540 

5506 

5541 

6777 

-CALREL- 1 

5542 

1000 

CALREL 

5543 

5212 

/ 

WFUN1H, 

JMP  MODJMP 

5544 

1 147 

TAD  THFLG 

/SET  UP  THRESHOLD  SHIFT  IF  REQUESTED 

5545 

7710 

SPA  CLA 

5546 

5212 

/ 

JMP  MODJMP 

5547 

1146 

TAD  THOLD 

/IS  THRESHOLD  AT  LEAST  10  DB? 

5550 

1375 

TAD  (-0324 

5551 

7710 

SPA  CU 

55S2 

5212 

/ 

JMP  MODJMP 

5553 

1374 

TAD  (PR0C6-1 

/SET  CLOCK  FOR  10PM 

5554 

3013 

DCA  XRT 1 

5555 

3413 

DCA  I  XRT1 

"*—■**- 
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5S56 

3413 

DCA  I  XRT 1 

5557 

1373 

TAD  (26 

5560 

3413 

DCA  I  XRT 1 

5561 

1  170 

TAD  KD2000 

5562 

3413 

DCA  I  XRT  1 

5563 

3413 

DCA  1  XRT  1 

5564 

3413 

DCA  1  XRT 1 

5565 

1372 

TAD  (7 

5566 

3413 

DCA  I  XRT 1 

5567 

1170 

TAD  KD2000 

5570 

3413 

DCA  I  XRT 1 

5571 

5212 

/ 

JMP  MODJMP 

/ 

5572 

0007 

PAGE 

5573 

0026 

5574 

0513 

5575 

7454 

5576 

5600 

5577 

5415 

/ 

5600 

1125 

FUN  1 , 

TAD  MODE 

5601 

0157 

AND  KD17 

5602 

3007 

DCA  7 

5603 

5206 

JMP  FUN  IB 

5604 

3007 

FUN 1A, 

DCA  7 

5605 

1172 

TAD  KD400 

5606 

3020 

FUN  IB, 

DCA  20 

5607 

3002 

DCA  2 

5610 

1007 

TAD  7 

5611 

5231 

/ 

JMP  FUN2A 

/ 

/ 

/ 

5612 

4115 

WFUN2 , 

CALL  WFUN2A 

5613 

5655 

5614 

3134 

/ 

DCA  KCAL1 

5615 

1  134 

FUN2, 

TAD  KCAL1 

5616 

5223 

/ 

JMP  SFUN2+  1 

5617 

4115 

WSFN2 , 

CALL  WFUN2A 

5620 

5655 

5621 

3135 

/ 

DCA  KCAL2 

5622 

1 135 

SFUN2, 

TAD  KCAL2 

5623 

41 15 

CALL  DBCON 

5624 

6763 

5625 

3007 

DCA  7 

5626 

1 171 

TAD  KD1000 

5627 

3020 

DCA  20 

5630 

1007 

/ 

TAD  7 

5631 

4115 

FUN2A , 

CALL  FUN2AA 

5632 

5634 

5633 

5777 

/ 

FUN2AA, 

JMP  HTSW5+4 

5634 

41 15 

CALL  BCDCON 

5635 

6702 

/ANY  DAY  IS  OKAY 
/SET  CLOCK  FOR  7AM 

/ANY  DAY  IS  OKAY 


/GET  MODE  NUMBER 
/FROM  MODE  WORD 

/SAVE 

/SET  R.  H.  DEC.  PT. 

/CLEAR  SIGN 
/AND  DISPLAY 

/GET  GAIN  CONSTANT 

/DISPLAY  GAIN  CONSTANT 
/GET  GAIN  CONSTANT  CH2 

/GET  GAIN  CONSTANT  AND  DISPLA 
/CONVERT  TO  DB 

/SET  DECIMAL  POINT 
/GET  INFO  BACK 


/FORMAT  CONVERSION 


Ill 


S636 

6604 

FUN2AB, 

L0D1S 

5637 

1007 

TAD  7 

5640 

0164 

AND  KD7400 

5641 

7104 

CLI  RAL 

5642 

1003 

TAD  3 

5643 

7006 

RTL 

5644 

7006 

RTL 

5645 

3007 

DCA  7 

5646 

1002 

TAD  2 

5647 

7640 

SZA  CLA 

5650 

1 163 

TAD  KD320 

5651 

1007 

TAD  7 

5652 

1020 

TAD  20 

5653 

6605 

H1DIS 

5654 

5523 

/ 

RETURN 

5655 

6621 

/ 

VFUN2A, 

SWREG 

5656 

0376 

AND  (3777 

5657 

4115 

CALL  BCDBIN 

S660 

6625 

S661 

4115 

CALL  DPMP 

5662 

7011 

5663 

0210 

0210 

5664 

0417 

0417 

5665 

3007 

DCA  7 

5666 

6621 

SWREG 

5667 

7004 

RAL 

5670 

7200 

CLA 

5671 

1007 

TAD  7 

5672 

7430 

SZL 

5673 

7041 

CIA 

5674 

5523 

/ 

RETURN 

5675 

1125 

/ 

WFUN3, 

TAD  MODE 

5676 

0375 

AND  (-PKCHS-1 

5677 

3007 

DCA  7 

5700 

6622 

FVSLO 

5701 

0174 

AND  KD100 

5702 

7650 

SNA  CLA 

5703 

5310 

JMP  WFUN3A 

5704 

6621 

SWREG 

5705 

7010 

RAR 

5706 

7620 

SNL  CLA 

5707 

1174 

TAD  KD100 

5710 

1007 

VFUN3A, 

TAD  7 

5711 

3125 

DCA  MODE 

5712 

1125 

TAD  MODE 

5713 

6607 

/ 

FUN3, 

SELMD 

5714 

1125 

TAD  MODE 

5715 

0174 

AND  KD 100 

5716 

7640 

SZA  CLA 

5717 

7001 

I  AC 

5720 

7001 

I  AC 

5721 

5202 

JMP  FUN  1*2 

/LOAD  LOW  DIGITS 
/GET  3RD  DIGIT 

/START  SHIFT 

/MOVE  OVER  ONE  DIGIT 

/GET  SIGN 

/MAKE  A  MINDS  IN  HIGH 
/GET  D.P. 

/GET  GAIN  CONSTANT 

/CHANGE  FORMAT.  RANGE  IS  ZERO  TO  79.9  DB 

/TO  CONVERT  TO  L0G2,  MPY  BY  .03321928 

/OR  .0210041703  OCTAL 
/=  l/< I0«10*LOG10(2>) 

/NOW  IN  STANDARD  FORM 
/GET  SIGN 

/PUT  SIGN  ON  GAIN  CONSTANT 

/DELETE  CHANNEL  FROM  MODE 
/MASK  OUT  CURRENT  CHANNEL 

/GET  FLAG  FOR  SINGLE  OR  DUAL 
/THIS  IS  BIT 

/ALWAYS  CHANNEL  ONE  IF  SINGLE  CHANNEL 
/GET  CHANNEL  FROM  LOW  BIT  OF  SWREG 

/MUST  BE  CHANNEL  2 
/NOW  HAVE  UPDATED  MODE  WORD 
/UPDATE  HARDWARE 
/GET  PEAK  CHANNEL 

/DISPLAY  CHANNEL  NO. 


1 


/ 


5722 

6621 

WSFN3, 

SWREG 

/GET  VALl'E  FROM  SWITCHES 

5723 

0374 

AND  ' 1777 

/MASK  OUT  SIGN  BIT 

S724 

41 15 

CA1.L  BCDBIN 

/CONVERT 

5725 

6625 

5726 

4115 

CALI.  DPMP 

/MPY  BY  .3321928096  OR  .252052264  OCTAL 

5727 

701 1 

5730 

2520 

2520 

5731 

5227 

5227 

5732 

3146 

DCA  THOLD 

/SAVE  RESULT 

S733 

6621 

SWREG 

/GET  FLAG 

5734 

3147 

/ 

SFUN3, 

1CA  THFLG 

/SAVE  USERS  DESIRE  FOR  10  DB  SHIFT  SUPPRESSION 

5735 

3002 

DCA  2 

/CLEAR  SIGN 

5736 

1  147 

TAD  THFLG 

/OUTPUT  THRESHOLD 

5737 

5773 

/ 

XFUN3, 

JMP  FUN4A 

5740 

1 134 

TAD  KCAL1 

/SUBTRACT  CAL  FROM  THRESHOLD 

5741 

7161 

STL  CIA 

/DO  IT  13  BIT 

5742 

7500 

NMA 

5743 

7100 

CLL 

5744 

1  146 

TAD  THOLD 

5745 

7010 

RAR 

/TAKE  SQUARE  ROOT 

5746 

1372 

TAD  (7100 

/SUBTRACT  HARDWARE  CONSTANT 

5747 

3007 

DCA  7 

/SAVE  VALUE 

5750 

1007 

TAD  7 

/GET  FRACTION  ANTIL0G4(X> 

5751 

7010 

RAR 

5752 

0161 

AND  KD77 

5753 

1  154 

TAD  LOGTBL 

5754 

3006 

DCA  6 

5755 

1406 

TAD  I  6 

5756 

7002 

BSW 

5757 

0161 

AND  KD77 

5760 

3006 

DC  A  6 

5761 

1007 

TAD  7 

/NOW  HANDLE  EXPONENT 

5762 

7510 

SPA 

/WHAT  SIGN? 

5763 

5771 

JMP  XFUN3B 

/- 

5764 

71 10 

CLL  RAR 

/+  COMBINE 

5765 

0165 

AND  KD7700 

5766 

1006 

/ 

TAD  6 

5767 

5770 

/ 

JMP  XFUN3A&7700 

5770 

6000 

PAGE 

5771 

6007 

5772 

7100 

5773 

6037 

5774 

1777 

5775 

7677 

5776 

3777 

5777 

0273 

/ 

6000 

7106 

/ 

CLL  RTL 

/ALIGN  FOR  HARDWARE 

6001 

7004 

/ 

XFUN3A, 

RAL 

6002 

7450 

SNA 

/DON’T  LET  A  ZERO  IN 

6003 

7001 

I  AC 

6004 

7041 

CIA 

/ADDERS  NEED  COMPLEMENT 

6005 

6602 

THSET 

6006 

5523 

y 

RETURN 

6007 

7002 

XFUN3B, 

BSH 

6010 

0161 

AND  KD77 

601  I 

1 165 

TAD  KD7700 

6012 

3007 

DCA  7 

6013 

1006 

TAD  6 

6014 

7106 

CLL  RTL 

6015 

7410 

SKP 

6016 

71  10 

CLL  RAR 

6017 

2007 

ISZ  7 

6020 

5216 

JMP  .-2 

6021 

5202 

JMP  XFUN3A 

/ 

/ 

/ 

/ 


/GET  NUMBER  OF  SHIFTS 
/EXTEND  MINUS  SIGN 
/ALIGN  FRACTION 


/ 


6022  6621 

6023  3140 

6024  3141 

6025  3002 

6026  1140 

6027  4115 

6030  6625 

6031  5777 


6032  6621 

6033  3141 

6034  3140 

6035  3002 

6036  1141 

6037  4115 

6040  6625 

6041  5776 


/ 

/ 

/ 


WSFN4, 


/ 

SFUN4, 


/ 

/ 

/ 

/ 

VFUN4, 


/ 

FUN4, 

FUN4A, 


/ 


SVREG 
DCA  TSEC 
DCA  TMIN 

DCA  2 
TAD  TSEC 
CALL  BCDBIN 

JMP  FUN0B 


SWREG 
DCA  TMIN 
DCA  TSEC 

DCA  2 
TAD  TMIN 
CALL  BCDBIN 

JMP  FUN1A 


/GET  SECONDS 

/CLEAR  MINUTES 

/CLEAR  SIGN 

/GET  SECONDS  IN  BCD 

/GO  OUTPUT 

/READ  MINUTES 

/CLEAR  SIGN 

/GET  MINUTES  IN  BCD 


/ 


/ 


6042 

6621  WFUN5, 

SVREG 

/GET  NEW  FORMAT  WORD 

6043 

3127 

DCA  FORMAT 

6044 

3007 

DCA  7 

/CLEAR  COUNTER 

6045 

1127 

TAD  FORMAT 

6046 

037 S 

AND  17740 

/LOOK  ONLY  AT  DATA  BUFFER 

604? 

7104 

CLL  RAL 

/GET  THE  NUMBER  OF  ONES  SET 

6050 

7430 

SZL 

6051 

2007 

ISZ  7 

/FOUND  A  ONE 

6052 

7440 

SZA 

6053 

5247 

JMP  .-4 

/STILL  HAS  A  ONE  IN  AC 

6054 

1007 

TAD  7 

6055 

7450 

SNA 

/DON’T  ALLOW  ZERO  RESULT 

6056 

7001 

IAC 

6057 

3035 

DCA  LEN 

/SAVE  LENGTH  PER  BLOCK 

6060 

1035 

TAD  LEN 

/SET  UP  DIVIDE 

6061 

7041 

CIA 

6062 

3007 

DCA  7 

6063 

3006 

DCA  6 

/CLEAR  QUOTIENT 

6064 

1056 

TAD  MEMTOP 

/GET  AVAILABLE  SPACE 

6065 

7001 

IAC 

6066 

4115 

CALL  DIVD 

/FIND  it  OF  BLOCKS 

6067 

6200 

6070 

7041 

CIA 

6071 

3034 

DCA  STORE 

/UPDATE 

6072 

7305 

K2 

6073 

0127 

AND  FORMAT 

/GET  LENGTH 

6074 

3007 

DCA  7 

/THIS  IS  NOW  INITIAL  VALUE 

6075 

1127 

TAD  FORMAT 

/GET  LDN'S 

6076 

7012 

RTR 

6077 

7010 

RAR 

6100 

0374 

AND  (1 

/GET  CHAN  1 

6101 

7430 

SZL 

6102 

7001 

IAC 

/ADD  CHAN  2 

6103 

3006 

DCA  6 

6104 

7001 

IAC 

/GET  LEVELS  BIT 

6105 

0127 

AND  FORMAT 

6106 

7650 

SNA  CLA 

6107 

5312 

JMP  . *3 

/SKIP  LEVELS 

61 10 

1006 

TAD  6 

/ADD  EXTRA  LOCATIONS 

6111 

1006 

TAD  6 

/NO.  OF  CHAN  TIMES  2 

6112 

1006 

TAD  6 

/THIS  NOW  HAS  EVERYTHING 

6113 

1007 

TAD  7 

/GET  LENGTHS  TOO 

6114 

3043 

DCA  LDNLEN 

/NOW  HAVE  #  OF  LOCS  FOR  LDN  BLOCK 

6115 

1043 

TAD  LDNLEN 

/SET  UP  DIVIDE 

61 16 

7041 

CIA 

61 17 

3007 

DCA  7 

6120 

3006 

DCA  6 

/CLEAR  QUOTIENT 

6121 

1373 

TAD  (LDNTOP- 

-LDNBOT+ 1  /LENGTH  OF  LDN  BUFFER 

6122 

4115 

CALL  DIVD 

6123 

6200 

6124 

7041 

CIA 

6125 

3042 

DCA  LDNST 

/UPDATE  *  OF  LDN  BLOCKS 

6126 

6002 

IOF 

/SET  UP  MEMORY  POINTERS  WITH  INTERRUPT  OFF 

6127 

7240 

STA 

6130 

3017 

DCA  XR17 

6131 

1017 

TAD  XR17 

6132 

7001 

IAC 

6133 

3037 

DCA  XR 16 

i 
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6134 

1037 

TAD  XR 16 

6135 

3065 

DCA  DX 16 

6136 

1034 

TAD  STORE 

6137 

3036 

DCA  INFLO 

6140 

1036 

TAD  INFLO 

6141 

3040 

DCA  OUTFLO 

6142 

1040 

TAD  OUTFLO 

6143 

3064 

DCA  DFLO 

6144 

7240 

STA 

6145 

3041 

DCA  EMPTY 

6146 

1372 

TAD  (LDNBOT-1 

6147 

3016 

DCA  LDN17 

6158 

1016 

TAD  LDN17 

6151 

7001 

I  AC 

6152 

3045 

DCA  LDN16 

6153 

1045 

TAD  LDN16 

6154 

3067 

DCA  DLX16 

6155 

1042 

TAD  LDNST 

6156 

3044 

DCA  LDNIN 

6157 

1044 

TAD  LDNIN 

6160 

3046 

DCA  LDNOT 

6161 

1046 

TAD  LDNOT 

6162 

3066 

DCA  DLFLO 

6163 

7240 

STA 

6164 

3047 

DCA  LDNMT 

6165 

3105 

DCA  TRBLK 

6166 

6001 

/ 

ION 

/ 

6167 

1127 

FUN5, 

TAD  FORMAT 

6170 

5771 

/ 

JMP  SFN14A  /OUTPUT  FORMAT  IN  OCTAL 

/ 

6171 

6350 

PAGE 

6172 

0571 

6173 

0101 

6174 

0001 

6175 

7740 

6176 

5604 

6177 

5261 

/ 

/ 

/ 

/ 

/ 

/THIS  IS  DIVIDE  FOR  ♦  NUMBERS  LESS  THAN  4095 

/THIS  ROUTINE  HAS  DIVISOR  IN  LOC  7,  DIVIDEND  IN  A-C  ON  ENTRY. 

/ALSO,  LOC  6  MUST  HAVE  BEEN  CLEARED 

/QUOTIENT  IN  A-C  IN  6,  REM  IN  5 

/USES  LOCS  5,6  AND  7 


6200 

7120 

DIVD, 

STL 

6201 

1007 

TAD  7 

/SUBTRACTION  METHOD 

6202 

7430 

SZL 

6203 

5206 

JMP  .+3 

/NEG.  MUST  BE  DONE 

6204 

2006 

ISZ  6 

/POS.  UPDATE  QUOTIENT 

6205 

5200 

JMP  .-5 

6206 

7041 

CIA 

6207 

1007 

TAD  7 

/COMPENSATE  REMAINDER  FOR  GOING  TO  FAR 

6210 

7041 

CIA 

6211 

3005 

DCA  5 

/REMAINDER 

6212 

1006 

TAD  6 

/EXIT  WITH  QUOTIENT  IN  A-C 

6213 

5523 

/ 

/ 

RETURN 

116 


/ 


/ 


6214 

4115 

WFUN6, 

CALL  NUMONE 

/GET  MINISAMPLE  RECORDER  ON  TIME 

6215 

6226 

6216 

3130 

/ 

FUN6, 

DCA  RECON 

6217 

1130 

TAD  RECON 

/RECALL  TIME 

6220 

5777 

/ 

JMP  FUN  1A 

/AND  DISPLAY 

6221 

4115 

/ 

WSFN6 , 

CALL  NUMONE 

/GET  MINISAMPLE  RECORDER  INTERVAL  TIME 

6222 

6226 

6223 

3131 

/ 

SFUN6 , 

DCA  RECOFF 

/THE  RESULTS  ARE  IN  MINUTES 

6224 

1131 

TAD  RECOFF 

/RECALL  TIME 

6225 

5777 

/ 

NUMONE, 

JMP  FUN1A 

/AND  DISPLAY 

6226 

6621 

SVREG 

/GERT  VALUE  FROM  SV ITCHES 

6227 

4115 

CALL  BCDBIN 

/CONVERT  TO  BINARY 

6230 

6625 

6231 

7450 

SNA 

6232 

7001 

I  AC 

/DON’T  LET  A  ZERO  IN 

6233 

5523 

/ 

/ 

RETURN 

6234 

4115 

/ 

/ 

WFUN7, 

CALL  WFUN7A 

/GET  PRESENT  TIME  -  DAY 

6235 

6245 

6236 

3145 

DCA  CLDAY 

/AND  SAVE 

6237 

3144 

DCA  CLHR 

/CLEAR  REST  OF  CLOCK  TO  PREVENT  OVERFLOWS 

6240 

3143 

/ 

DCA  CLM1N 

6241 

1145 

/ 

FUN7, 

TAD  CLDAY 

/GET  DAY 

6242 

5777 

/ 

/ 

/ 

WFUN7B, 

JMP  FUN  1 A 

/AND  DISPLAY 

6243 

3776 

DCA  PRBUF 

/ALWAYS  CLEAR  SECONDS 

6244 

7410 

SKP 

6245 

3142 

WFUN7A, 

DCA  CLSEC 

/ALWAYS  CLEAR  SECONDS 

6246 

6621 

SWREG 

/GET  SWITCHES 

6247 

4115 

CALL  BCDBIN 

/AND  CONVERT  TO  BINARY 

6250 

6625 

6251 

5523 

/ 

/ 

/ 

WFUN8, 

RETURN 

/DONE 

6252 

4115 

CALL  WFUN7A 

/GET  PRESENT  TIME  -  HOUR 

6253 

6245 

6254 

3144 

DCA  CLHR 

6255 

3143 

/ 

DCA  CLMIN 

/CLEAR  REST  OF  CLOCK  TO  PREVENT  OVERFLOWS 

6256 

1 144 

/ 

FUN8, 

TAD  CLHR 

/GET  HOUR 

6257 

5777 

/ 

JMP  FUN1A 

/AND  DISPLAY 

6260 

4115 

/ 

WFUN9, 

CALL  WFUN7A 

/GET  PRESENT  TIME  -  MINUTE 

117 


6261 

6262 

6245 

3143 

/ 

DCA  CLMIN 

6263 

6264 

1 143 
5777 

FUN9, 

/ 

/ 

TAD  CLM1N 

JMP  FUN  1 A 

/GET  MINUTE 

/ 

6265 

4115 

/ 

WSFN7, 

CALL  VFUN7B 

/GET  START  TIME  -  DAY 

6266 

6243 

6267 

3775 

DCA  PRBUF+3 

/SAVE  IN  PROCESS  BUFFER 

6270 

3774 

DCA  PRBUF+2 

/CLEAR  HOURS 

6271 

3773 

/ 

DCA  PRBUF+ 1 

/CLEAR  MINUTES 

6272 

1775 

/ 

SFUN7, 

TAD  PRBUF+3 

/GET  START  DAY 

6273 

5313 

/ 

JMP  SFUN9+1 

/AND  DISPLAY 

6274 

1775 

/ 

WSFN8, 

TAD  PRBUF+3 

/HAS  DAY  BEEN  ENTERED? 

6275 

7700 

SMA  CLA 

6276 

5301 

JMP  .+3 

/YES. 

6277 

1145 

TAD  CLDAY 

/NO.  USE  CURRENT  DAY 

6300 

3775 

/ 

DCA  PRBUF+3 

6301 

4115 

CALL  WFUN7B 

/GET  HOUR 

6302 

6243 

6303 

3774 

DCA  PRBUF+2 

/SAVE 

6304 

3773 

/ 

DCA  PRBUF+1 

/CLEAR  MINUTES 

6305 

1774 

/ 

SFUN8, 

TAD  PRBUF+2 

/GET  START  HOUR 

6306 

5313 

/ 

JMP  SFUN9+1 

/AND  DISPLAY 

6307 

4115 

/ 

WSFN9, 

CALL  WFUN7B 

/GET  START  MINUTE 

6310 

6243 

6311 

3773 

/ 

SFUN9, 

DCA  PRBUF+1 

6312 

1773 

TAD  PRBUF+1 

6313 

0372 

AND  (3777 

/DON’T  DISPLAY  OFF  FLAG 

6314 

5777 

JMP  FUN1A 

/ 
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/ 

6315 

6621 

/ 

WFUN14, 

SWREG 

/GET  MEMORY  ADDRESS 

6316 

3121 

/ 

FUN  14, 

DC A  MEM AD 

6317 

1121 

TAD  MEMAD 

/READ  CURRENT  MEM  ADDRESS 

6320 

5350 

/ 

WSFN14, 

JMP  SFN14A 

6321 

6000 

SKON 

6322 

7040 

CMA 

6323 

3055 

DCA  TEMP3 

6324 

1 122 

TAD  MEMFLD 

6325 

7106 

CLL  RTL 

6326 

7006 

RTL 

6327 

1 125 

TAD  MODE 

6330 

6607 

SELMD 

6331 

6621 

SWREG 

/GET  CONTENTS  OF  ADDRESS 

6332 

3521 

DCA  I  MEMAD 

/PUT  IT  AWAY 

6333 

1125 

TAD  MODE 

6334 

6607 

SELMD 

6335 

2055 

ISZ  TEMP3 

6336 

6001 

/ 

SFUN14, 

ION 

6337 

1 121 

TAD  MEMAD 

/READ  CURRENT  CONTENTS 

6340 

3006 

DCA  6 

/SET  UP  DATA  GET 

6341 

1122 

TAD  MEMFLD 

6342 

7106 

CLL  RTL 

6343 

7006 

RTL 

6344 

4115 

CALL  GETDAT 

6345 

7124 

6346 

2121 

ISZ  MEMAD 

6347 

7000 

NOP 

/SAFETY  FIRST 

6350 

4115 

SFN14A, 

CALL  OCT BCD 

/CONVERT  OCTAL  TO  BCD 

6351 

6363 

6352 

4115 

CALL  FUN2AB 

/PUT  NO.  IN  DISPLAY 

6353 

5636 

6354 

5177 

/ 

JMP  SWSET 

/ 

/BEGIN 

EXECUTION  AT  CURRENT  MEMORY  ADDRESS  IN  FIELD  0 

635S 

5521 

WFUN1S, 

/ 

WSFN15, 

JMP  I  MEMAD 

6356 

6621 

SWREG 

/GET  FIELD  IN  LOW  BITS 

6357 

0371 

AND  (3 

6360 

3122 

/ 

SFUN15, 

DCA  MEMFLD 

6361 

1 122 

TAD  MEMFLD 

/TELL  CURRENT  DATA  FIELD 

6362 

5350 

/ 

JMP  SFN14A 

/ 

/THIS  ROUTINE  CONVERTS 

12  BIT  BINARY  TO  4  DIGIT  OCTAL 

/THIS  MIMICS  THE  BINBCD 

/ 

ROUTINE 

6363 

7421 

OCT BCD, 

MQL 

/SAVE  INPUT  AND  CLEAR  AC 

6364 

3007 

DCA  7 

/CLEAR  RESULT 

6365 

7346 

/ 

KM3 

/SET  UP  9  BIT  DOUBLE  PRECISION  SHIFT 

6366 

5770 

/ 

JMP  OCTB 1*7700 

6370 

6400 

PAGE 

119 


6371 

0003 

6372 

3777 

6373 

0471 

6374 

0472 

6375 

0473 

6376 

0470 

6377 

5604 

/ 

/ 

6400 

3006 

DCA  6 

6401 

7346 

OCTB1 , 

KM3 

6402 

3005 

DCA  5 

6403 

1007 

TAD  7 

6404 

7521 

0CTB2, 

SWP 

6405 

7110 

CLL  RAR 

6406 

7521 

SWP 

6407 

7010 

RAR 

6410 

2005 

ISZ  5 

6411 

5204 

JMP  0CTB2 

6412 

71  10 

CLL  RAR 

6413 

3007 

DCA  7 

6414 

2006 

ISZ  6 

6415 

5201 

JMP  OCTB1 

6416 

7521 

SWP 

6417 

3003 

DCA  3 

6420 

3002 

DCA  2 

6421 

3020 

DCA  20 

6422 

1007 

TAD  7 

6423 

5523 

/ 

RETURN 

/ 

/ 

6424 

7001 

SFUN11, 

I  AC 

6425 

7001 

FUN  1 1 , 

I  AC 

6426 

7001 

SFUN10, 

I  AC 

6427 

7001 

FUN  10, 

I  AC 

6430 

3132 

DCA  DISPCH 

6431 

1133 

TAD  DISFL 

6432 

7650 

SNA  CLA 

6433 

5777 

JMP  HTSV5+4 

6434 

7240 

STA 

6435 

3133 

DCA  DISFL 

6436 

5777 

/ 

JMP  HTSW5+4 

/ 

/ 

6437 

4115 

WFUN12, 

CALL  WSFN5A 

6440 

6530 

6441 

0034 

STORE 

6442 

0035 

LEN 

6443 

0064 

DFLO 

6444 

0000 

0 

6445 

3065 

/ 

DCA  DX 16 

6446 

1376 

FUN  12, 

TAD  (DMP 1 

6447 

3150 

DCA  I DMP 

6450 

5777 

JMP  HTSW5+4 

/ 

/ 


/ 


/INSERT  CLEAR  BIT  AFTER  EVERY  3 


/SIGN 

/D.P. 


/PEAK 

/TIME 

/CH2 

/CHI 

/SET  DATA  READY  IF  POSSIBLE 


/GET  BIN  NUMBER  AND  LOAD  BUFFER  REGISTERS 


/RESET  PHASE 


6451 

4115 

WSFN12,  CALL  WSFN5A 

6452 

6530 

6453 

0042 

LDNST 

6454 

0043 

LDNLEN 

6455 

0066 

DLFLO 

6456 

0572 

LDNBOT 

6457 

3067 

DCA  DLX16 

/GET  LDN  BIN  NUMBER  AND  LOAD  BUFFER  REGISTERS 


/USE  OTHER  DUMP  TABLE 


6460 

1375 

/ 

SFUN12, 

TAD  (LDMP1 

6461 

5247 

/ 

JMP  FUN  12+ 1 

/ 

/ 

/ 

/ 

6462 

6002 

WSFN5, 

IOF 

6463 

4115 

CALL  VSFN5A 

6464 

6530 

6465 

0034 

STORE 

6466 

0035 

LEN 

6467 

0036 

INFLO 

6470 

7777 

-1 

6471 

3017 

DCA  XR17 

6472 

6001 

/ 

ION 

6473 

1034 

SFUN5 , 

TAD  STORE 

6474 

7041 

CIA 

6475 

7001 

I  AC 

6476 

1036 

TAD  INFLO 

6477 

5774 

/ 

WFUN13, 

JMP  FUN  1+2 

6500 

4115 

CALL  WSFN’SA 

6501 

6530 

6502 

0034 

STORE 

6503 

0035 

LEN 

6504 

0040 

OUTFLO 

6505 

0000 

0 

6506 

3037 

/ 

DCA  XR16 

6507 

1034 

FUN 13, 

TAD  STORE 

6510 

7041 

CIA 

6511 

7001 

I  AC 

6512 

1040 

TAD  OUTFLO 

6513 

5774 

/ 

JMP  FUN  1+2 

6514 

4115 

WSFN13, 

CALL  WSFN5A 

6515 

6530 

6516 

0042 

LDNST 

6517 

0043 

LDNLEN 

6520 

0046 

LDNOT 

6521 

0572 

LDNBOT 

6522 

3045 

/ 

DCA  LDN 16 

/ 

6523 

1042 

SFUN13, 

TAD  LDNST 

6524 

7041 

CIA 

6525 

7001 

I  AC 

6526 

1046 

TAD  LDNOT 

6527 

5774 

/ 

JMP  FUN  1+2 

/ 

/ 

6530 

7240 

WSFN5A , 

ST  A 

6531 

1520 

TAD  I  STACK 

6532 

3013 

DCA  XRT 1 

6S33 

2120 

ISZ  STACK 

6534 

1413 

TAD  I  XRT 1 

6535 

3020 

DCA  20 

6536 

1413 

TAD  I  XRT 1 

6537 

3021 

DCA  21 

6540 

1413 

TAD  I  XRT1 

/DON’T  CONFUSE  INTERRUPT  HANDLER 
/GET  BIN  NUMBER  FOR  DATA  IN 


/OK  NOW* 


/GET  PRINTER  OUTPUT  BIN  NUMBER 


/LDN  PRINT  LOCATION 


/GET  ARGUMENT  TABLE  ADDRESS 

/NUMBER  OF  BLOCKS  ALLOWED  IN  BUFFER 
/NUMBER  OF  MEMORY  WORDS  PER  BLOCK 
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/FLO  COUNTER 

/GET  USER’S  VALUE 

/ADJUST  TO  INTERNAL  COUNT 

/STORE 

/SET  FLO 

/GET  NUMBER  OF  WORDS  PER  BLOCK 


/NUMBER  OF  BLOCKS  IN  BUFFER 

/NOW  HAVE  LOCAL  BIN  NUMBER 

/LEN  •  BIN  #.  /EQUIVALENT  MEMORY  ADDRESS 

/ADD  IN  BASE  OF  BUFFER 
/EXIT 


6541 

3022 

/ 

DCA  22 

6542 

4115 

CALL  NUMONE 

6543 

6226 

6544 

1373 

TAD  (-1 

6545 

1420 

WSFN5B, 

TAD  I  20 

6546 

3422 

DCA  I  22 

6547 

1421 

TAD  I  21 

6550 

3006 

DCA  6 

6551 

1420 

TAD  I  20 

6552 

7041 

CIA 

6553 

1422 

TAD  I  22 

6554 

3005 

DCA  5 

6555 

41 15 

CALL  MPLY 

6556 

6736 

6557 

1413 

TAD  I  XRT 1 

6560 

5413 

JMP  I  XRT 1 

/ 


/ 

/ 

/ 

/ 


/ 


6561 

1772 

HSW4, 

TAD  HTSW5+2 

6562 

7750 

SPA  SNA  CLA 

6563 

5771 

JMP  HTSW4+4 

6564 

1370 

TAD  (HI FUN 

6565 

5767 

/ 

JMP  HSW5X 

6567 

6604 

/ 

PAGE 

6570 

7440 

6571 

0267 

6572 

0271 

6573 

7777 

6574 

5602 

6575 

7230 

6576 

7045 

6577 

0273 

/ 

/ 

6600 

1777 

HSW5, 

TAD  HTSW4+2 

6601 

7740 

SMA  SZA  CLA 

6602 

5776 

JMP  HSW4 

6603 

1375 

TAD  (FUNLOC 

6604 

3007 

HSW5X, 

DCA  7 

6605 

7307 

K4 

6606 

0107 

AND  TFUN1 

6607 

7640 

SZA  CLA 

6610 

1 160 

TAD  KD20 

6611 

1007 

TAD  7 

6612 

3007 

DCA  7 

6613 

1157 

TAD  KD17 

6614 

0106 

AND  TFUN0 

6615 

1007 

TAD  7 

6616 

3007 

DCA  7 

6617 

1407 

TAD  I  7 

6620 

3007 

DCA  7 

6621 

5407 

/ 

ERR0, 

JMP  I  7 

6622 

41 15 

CALL  ERROR  1 ♦ I 

6623 

3326 

JMP  HTSW4+4 

6624 

5774 

/ 


/EXECUTE  FUNCTION.  TEST  FOR  DISPLAY 
/NO.  IGNORE 
/GO  THERE. 


/DISPLAY  FUNCTION.  IS  EXECUTE  SET? 
/DO  A  WRITE 

/DO  A  READ.  GET  FUNCTION 
/IS  SHIFT  SET? 


/YES.  DIFFERENT  TABLE 

/GET  TABLE  ENTRY 

/GET  ADDRESS 
/GO  DO  IT. 

/NON-EX 1ST ANT  FUNCTION 
/EXIT 
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/ 


6625 

3007 

BCDBIN, 

DCA  7 

/SAVE  AC. 

6626 

1007 

TAD  7 

/256H  +  16M  +  L 

6627 

0164 

AND  KD7400 

/GET  HIGH  DIGIT 

6630 

7112 

CLL  RTR 

/64H 

6631 

3006 

DCA  6 

6632 

1006 

TAD  6 

6633 

7010 

RAR 

/32H 

6634 

1006 

TAD  6 

/96H 

6635 

7041 

CIA 

6636 

1007 

TAD  7 

6637 

3007 

DCA  7 

/160H  ♦  16M  +  L 

6640 

1007 

TAD  7 

6641 

0166 

AND  KD7760 

/GET  HIGH  AND  MID 

6642 

7112 

CLL  RTR 

/40H  ♦  4M 

6643 

3006 

DCA  6 

6644 

1006 

TAD  6 

6645 

7010 

RAR 

/20H  ♦  2M 

6646 

1006 

TAD  6 

/60H  +  6M 

6647 

7041 

CIA 

6650 

1007 

TAD  7 

/ 100H  +  10M  ♦  L 

6651 

5523 

/ 

SUBX, 

RETURN 

6652 

3114 

DCA  SUB1 

/SAVE  AC 

6653 

7060 

CMA  CML 

/ADJUST  STACK  POINTER 

6654 

1  120 

TAD  STACK 

6655 

3120 

DCA  STACK 

6656 

1115 

TAD  SUB 

/PUT  RETURN  ADDRESS  ON  STACK 

6657 

7001 

I  AC 

6660 

3520 

DCA  I  STACK 

6661 

1515 

TAD  I  SUB 

/GET  DESTINATION  ADDRESS 

6662 

31 15 

SUBX1 , 

DCA  SUB 

6663 

1 1 14 

TAD  SUB1 

/RESTORE  AC 

6664 

5515 

/ 

RETN, 

JMP  I  SUB 

/GO  TO  DESTINATION  ADDRESS 

6665 

3114 

DCA  SUB  1 

/SAVE  AC 

6666 

1520 

TAD  I  STACK 

/GET  RETURN  ADDRESS 

6667 

2120 

1SZ  STACK 

/DELETE  ENTRY 

6670 

5262 

/ 

JMP  SUBX 1 

/RETURN  COMPLETE 

6671 

31 14 

INDIR, 

DCA  SUB  1 

/INDIRECT  ADDRESSING  FOR  SUBROUTINE  CALL 

6672 

1520 

TAD  I  STACK 

/GET  ARGUMENT  ADDRESS 

6673 

3115 

DCA  SUB 

6674 

2S20 

ISZ  I  STACK 

/ADJUST  RETURN  ADDRESS 

6675 

1515 

TAD  I  SUB 

/GET  POINTER  TO  POINTER 

6676 

3115 

DCA  SUB 

6677 

1515 

TAD  I  SUB 

6700 

3115 

DCA  SUB 

6701 

5261 

JMP  SUBX 1-1 
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/ 


/THIS  ROUTINE  DOES  A  4  BCD  DIGIT  CONVERSION 
/USES  REG  3  THRU  7.  ENTER  WITH  NO.  IN  AC 

/THE  LARGEST  NUMBER  THAT  CAN  BE  CONVERTED  IS  7777  OCTAL  OR  4095  DECIMAL 


6702 

3004 

BCDCON , 

DC  A  4 

/SAVE  NUMBER 

6703 

3006 

DC  A  6 

6704 

1373 

TAD  (-1750 

/FORM  THOUSANDS  DIGIT 

6705 

3007 

DC  A  7 

6706 

1004 

TAD  4 

/GET  NUMBER 

6707 

4115 

CALL  D1VD 

6710 

6200 

671 1 

3003 

/ 

DC  A  3 

/SAVE  THOUSANDS 

6712 

3006 

DCA  6 

/CLEAR  QUOTIENT 

6713 

1372 

TAD  (-144 

/FORM  HUNDREDS 

6714 

3007 

DCA  7 

6715 

1005 

TAD  5 

6716 

41 15 

CALL  DIVD 

6717 

6200 

6720 

7106 

CLL  RTL 

/ALIGN  RESULT 

6721 

7006 

RTL 

6722 

3006 

DCA  6 

6723 

1371 

TAD  (-12 

/FORM  TENS  DIGIT 

6724 

3007 

DCA  7 

6725 

1005 

TAD  5 

6726 

4115 

CALL  DIVD 

6727 

6200 

6730 

7106 

CLL  RTL 

/ALIGN  RESULT 

6731 

7006 

RTL 

6732 

1005 

TAD  5 

/GET  ONES 

6733 

3007 

DCA  7 

6734 

1007 

TAD  7 

6735 

5523 

RETURN 

/AC  AND  7  HAVE  LO.  3  HAS  HIGH 

/ 


/ 

/ 

/ 

/THIS  ROUTINE  TAKES  (46+130N)  CYCLES 
/FOR  N=6,  IT  TAKES  826  CYCLES  MAX) 

/USES  REG  5  THRU  7.  LOAD  7  WITH  MULTIPLICAND. 
/LOAD  6  WITH  MULTIPLIER. 


/ 


6736 

1 15S 

MPLY, 

TAD  KM  12 

6737 

3007 

DCA  7 

6740 

1006 

TAD  6 

6741 

7421 

/ 

MQL 

6742 

7104 

MPLS, 

CLL  RAL 

6743 

7521 

SWP 

6744 

7004 

RAL 

6745 

7521 

SWP 

6746 

7420 

SNL 

6747 

5356 

JMP  MPLT 

6750 

7100 

CLL 

6751 

1005 

TAD  5 

6752 

7521 

SWP 

6753 

7430 

SZL 

6754 

7001 

I  AC 

6755 

7521 

SWP 

6756 

2007 

MPLT, 

ISZ  7 

6757 

5342 

/ 

JMP  MPLS 

6760 

S523 

RETURN 

/DO  12  BITS 

/SAVE  #  OF  PLACES  TO  MPY 
/PICK  UP  MULTIPLIER 
/LOAD  IT 

/D.  P.  SHIFT  OF  RESULT 

/ALSO  PICKS  UP  HIGH  ORDER 
/BIT  OF  MULTIPLIER. 

/DO  WE  ADD  INTO  LOW  ORDER? 


/YES.  GET  MULTIPLICAND 
/CARRY  IS  IN  LINK.  D.P.  ADD 
/UPDATE  HIGH  ORDER 

/RESTORE  POSITIONS 
/ARE  WE  DONE? 


/DONE.  LOW  ORDER  IN  AC 
/HIGH  ORDER  IN  MQ 


/ 


/ 


/ 

/ 

/ 
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/ 


6761 

6762 

6763 

6764 

6765 

6766 

6770 

6771 

6772 

6773 

6774 

6775 

6776 

6777 

7000 

7001 

7002 

7003 

7004 

7005 

7006 

7007 
7010 


/ 

7011 

7012 

7013 

7014 

7015 

7016 

7017 

7020 

7021 

7022 

7023 

7024 

7025 

7026 

7027 

7030 

7031 

7032 

7033 

7034 

7035 

7036 

7037 

7040 

7041 

7042 

7043 

7044 


/THIS  ROUTINE  CONVERTS  THE  LOG  FORMAT  STORED 

/IN  THE  BUFFER  TO  10«DB  STORED  AS  A  ONE  WORD  INTEGER. 

/THIS  ROUTINE  USES  REGS  3  THRU  7. 

/RESULT  IN  AC  AND  SIGN  IN  REG  2 
/ENTER  WITH  NO.  IN  AC. 

/ 

£100  PDBCON ,  CLL  /THIS  ENTRY  FOR  LARGE  POSITIVE  NUMBERS 

5/70  JMP  DBCONA 

/ 


7100  DBCON ,  CLL 
7510  SPA 

7061  CML  CIA 

/ 


/GET  SIGN 

/GET  ABSOLUTE  VALUE 


5770 

7000 

7766 

7634 

6030 

0267 

7400 

6561 

0265 


JMP  DBCONA 
PAGE 


3007 

/ 

DBCONA.  DCA  7 

7004 

RAL 

3002 

DCA  2 

1007 

TAD  7 

41 15 

CALL  DPMP 

701 1 

0036 

0036 

0646 

0646 

5523 

RETURN 

/ 

/ 

/ 

/ 

/THIS 

ROUTINE  USES  : 

3005 

DPMP, 

DCA  5 

7240 

STA 

1520 

TAD  I  STACK 

3013 

DCA  XRT 1 

2120 

ISZ  STACK 

1413 

TAD  I  XRT 1 

3004 

DCA  4 

1413 

TAD  I  XRT 1 

3006 

DCA  6 

4115 

/ 

CALL  MPLY 

6736 

7521 

SWP 

3003 

DCA  3 

1004 

TAD  4 

3006 

DCA  6 

4115 

CALL  MPLY 

6736 

7100 

/ 

CLL 

1003 

TAD  3 

1 17S 

TAD  KD40 

0165 

AND  KD7700 

3004 

DCA  4 

7521 

SWP 

7430 

SZL 

7001 

I  AC 

1004 

/ 

TAD  4 

7002 

BSW 

5413 

JMP  I  XRT 1 

/ 


/ 

/ 
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/SAVE  SIGN 


/MULTIPLY  BY  30.103  OR  36.0646 
/ONE  WORD  INTEGER  NNN.M 


3  THRU  7  AND  XRT1 
/MULTIPLICAND  IN  AC 

/GET  ADDRESS  OF  CALL 


/GET  HIGH  BITS  OF  MULTIPLIER 
/KEEP  FOR  A  WHILE 
/GET  LOW  BITS  OF  MULTIPLIER 
/SET  UP  MULTIPLY 

/FIRST  MULTIPLY 

/IGNORE  LOW  WORD 
/SAVE  HIGH  WORD 
/GET  HIGH  MULTIPLIER 


/DO  A  D.P.  ADD 
/MIDDLE  RESULT 
/EQUIVALENT  TO  .5  DECIMAL 


/UPDATE  HIGH  RESULT 


/EXIT  WITH  LOW  RESULT  IN  AC 
/NOW  IT’S  IN  MACHINE  FORMAT 
/XX. XX 


■■ 


/ 


f 

7046 

7047 

7050 

7051 

7052 

7053 

7054 

7055 

7056 

7057 

7060 

7061 

7062 

7063 


4  r  f  f 

7750 

5343 

1172 
0127 
7650 
5274 
3007 
1 127 
0164 
7104 
7430 
2007 
7440 
52S7 


/ 


7064 

7065 

7066 

7067 

7070 

7071 

7072 

7073 

7074 

7075 


7240 
1007 
1065 
3006 
1 160 
41 15 
7124 
7410 
7333 
3070 


dmpib. 


7076 

7077 
7100 
7l0j 

7102 

7103 

7104 

7105 

7106 

7107 

71 10 

71 1 1 

7112 

71 13 

71 14 

71 15 

71 16 


1065 

3073 

1376 

3072 

1375 

31S0 

1336 

3071 

1034 

7041 

7001 

1064 

5774 

2071 

5773 


/ 


/ 


DMP2, 


7117 

7120 

7121 

7122 

7123 


1336 

3071 

4115 

7261 

5346 

7010 

0020 


/ 


7124  7421 
7j2S  6000 
7 126  7040 


/ 

/ 

GETDAT, 


'  ni:»w5+2 

SPA  SNA  CLA 
JMP  DMPlA 

TAD  KD400 

as  ar1 

2 

TAD  format 
and  KD7400 
CLL  RAL 
SZL 
ISZ  7 
SZA 

JMP  .-4 

STA 
TAD  7 
TAD  DX16 
OCA  6 
TAD  KD20 
CALL  GETDAT 

SKP 
K6000 
DCA  DTI ME 

TAD  DX16 
DCA  Dl'MPTl 
tad  (DMASK 
DCA  DUMPT 
TAD  (DMP2 
$CA  IDMP 
TAD  DELAY2 
DCA  DUMPFL 
TAD  STORE 
CIA 
IAC 

TAD  dflo 
JMP  FUN  1 +2 

ISZ  DUMPFL 
JMP  TDMPX 

TAD  DELAY2 
DCA  DUMPFL 

CALL  DUMPLK 

JMP  DMP3 
DHTAB-DMASK-1 


MQL 

SKON 

CMA 


UJSPLAY  ON? 

/WO.  ZAP  DUMP 
/WAS  TIME  SPECIFIED? 

/YES.  BUT  WHERE  IS  IT? 
/LOOK  AT  PRIOR  BITS  ONLY 


/MUST  BE  AT  LEAST  ONE 
/POINTS  TO  VALUE  IN  BUFFER 

/GET  VALUE 

/THIS  IS  FOR  UNSPECIFIED  TIME 
/GET  ADDRESS  OF  DATA 


''SET  DELAY 
/GET  BIN  NUMRFP 

/starting Tone 

/ADD  REMAINDER 
/GO  DISPLAY 


* 
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/RETRL'l  VE  FIELD 


7127 

3055 

DCA  TEMP3 

7130 

7501 

MQA 

7131 

1 125 

TAD  MODE 

7132 

6607 

SELMD 

7133 

1406 

TAD  1  6 

7134 

7421 

MOL 

7135 

1125 

TAD  MODE 

7136 

6607 

DELAY2, 

SELMD 

7137 

2055 

ISZ  TEMP3 

7140 

6001 

ION 

7141 

7501 

MQA 

7142 

5523 

/ 

RETURN 

/ 

7143 

1151 

DMP1A, 

TAD  DMPX 

7144 

3150 

DCA  IDMP 

7145 

5773 

/ 

JMP  TDMPX 

/ 

7146 

7206 

DMP3, 

CLA 

7147 

1073 

TAD  DUMPT 

7150 

3065 

DCA  DX 16 

7151 

2064 

ISZ  DFLO 

7152 

5772 

JMP  FUN  12 

7153 

1034 

TAD  STORE 

7154 

3064 

DCA  DFLO 

7155 

3065 

DCA  DX 16 

7156 

5772 

/ 

JMP  FUN  1 2 

/ 

/ 

/ 

7157 

0010 

LMASK, 

10 

7160 

0004 

4 

7161 

0002 

2 

7162 

0002 

2 

7163 

001  1 

II 

7164 

0011 

1 1 

7165 

0005 

5 

7166 

0005 

5 

7167 

0000 

/ 

0 

/ 

7172 

6446 

PAGE 

7173 

0247 

7174 

5602 

7175 

7113 

7176 

0167 

7177 

0271 

/ 

/ 

/ 

7200 

7215 

DHTAB, 

DCH 

7201 

7215 

DCH 

7202 

5257 

FUN0M 

7203 

5623 

SFUN2+ 1 

7204 

5623 

SFUN2+ 1 

7205 

5623 

SFUN2* 1 

7206 

7207 

DCLK 

/ 


/SET  FIELD  REGISTER 
/GET  DATA  FROM  DATA  FIELD 

/RESTORE  HARDWARE 

/RESTORE  INTERRUPT  TO  PREVIOUS  STATUS 
/RETRIEVE  DATA 


/NO  DATA.  ZAP  DUMP 


/UPDATE  BUFFER  POINTER 

/DOUBLE  PRECISION 
/DO  A  RESET 
/WRAPPED  AROUND 


/CHI  LDN 
/CH2  LDN 

/TIME  DURATION  DAY 
/TIME  DURATION  NIGHT 
/LEQ  DAY  CHI 
/LEO  NIGHT  CHI 
/LEQ  DAY  CH2 
/LEQ  NIGHT  CH2 
/END  OF  TABLE 


/PK 
/TIME 
/GAIN  CHI 
/GAIN  CH2 
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7207 

3007 

DCLK, 

DCA  7 

7210 

3002 

DCA  2 

721 1 

1 170 

TAD  KD2000 

7212 

3020 

DCA  20 

7213 

1007 

TAD  7 

7214 

5777 

/ 

/ 

/ 

DCH, 

JMP  FUN2A 

7215 

3007 

DCA  7 

7216 

1070 

TAD  DTI ME 

7217 

5346 

/ 

/ 

/ 

LTAB, 

JMP  DISUB 

7220 

5257 

FUN0+ 1 

7221 

5257 

FUN0+ 1 

7222 

5623 

LTAB1, 

SFUN2+ 1 

7223 

5623 

SFUN2+ 1 

7224 

5257 

FUN0+ 1 

7225 

5257 

FUN0+ 1 

7226 

5257 

FUN0+ 1 

7227 

5257 

/ 

FUN0+ 1 

7230 

1776 

LDMP1, 

TAD  HTSW5+2 

7231 

7750 

SPA  SNA  CLA 

7232 

5775 

/ 

JMP  DMP1A 

7233 

1067 

TAD  DLX16 

7234 

3073 

DCA  DUMPT1 

7235 

1374 

TAD  (LMASK 

7236 

3072 

DCA  DUMPT 

7237 

1265 

TAD  DELAY  1 

7240 

3071 

DCA  DUMPFL 

7241 

1373 

TAD  ( LDMP2 

7242 

3150 

DCA  IDMP 

7243 

1042 

TAD  LDNST 

7244 

7041 

CIA 

7245 

7001 

I  AC 

7246 

1066 

TAD  DLFLO 

7247 

5772 

/ 

LDMP2 , 

JMP  FUN 1+2 

7250 

2071 

ISZ  DUMPFL 

7251 

5771 

/ 

JMP  TDMPX 

7252 

1265 

TAD  DELAY  1 

7253 

3071 

/ 

DCA  DUMPFL 

7254 

4115 

/ 

CALL  DUMPLK 

7255 

7261 

7256 

5312 

JMP  LDMP3 

7257 

0040 

LTAB- LMASK- 1 

7260 

0000 

/ 

0 

/ 

7261 

1472 

DUMPLK, 

TAD  I  DUMPT 

7262 

7450 

SNA 

7263 

5523 

RETURN 

7264 

0127 

AND  FORMAT 

/GO  DISPLAY 


/IS  DISPLAY  ON? 

/NO.  ZAP  DUMP 

/SET  UP  DATA  POINTER 

/SET  UP  MASK  TABLE  POINTER 

/SET  USER  READ  TIME 

/DON’T  RETURN  HERE 

/GET  BIN  NUMBER 
/STARTING  AT  ONE 

/WAIT  A  WHILE 
/SET  USER  READ  TIME 


/ROUTINE  TO  READ  THE  FORMAT  WORDS 
/FOUND  END  OF  TABLE 
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/CAN  MATCH  MORE  THAN  ONE  BIT  THIS  WAY 


7265 

7041 

DELAY  1 , 

,  CIA 

7266 

1472 

TAD  I  DUMPT 

7267 

2072 

ISZ  DUMPT 

7270 

7640 

SZA  CLA 

7271 

5261 

JMP  DUMPLK 

7272 

1520 

TAD  I  STACK 

7273 

3013 

DCA  XRT 1 

7274 

2120 

ISZ  STACK 

7275 

1413 

TAD  I  XRT 1 

7276 

1072 

TAD  DUMPT 

7277 

3007 

DCA  7 

7300 

1407 

TAD  I  7 

7301 

3007 

DCA  7 

7302 

1073 

TAD  DUMPT 1 

7303 

3006 

DCA  6 

7304 

1413 

TAD  I  XRT 1 

7305 

41  15 

CALL  GETDAT 

7306 

7124 

7307 

2073 

ISZ  DUMPT  1 

7310 

5407 

JMP  I  7 

7311 

5407 

/ 

JMP  I  7 

7312 

7200 

/ 

LDMP3 , 

CLA 

7313 

1073 

TAD  DUMPT 1 

7314 

3067 

DCA  DLX16 

7315 

2066 

ISZ  DLFLO 

7316 

5770 

JMP  SFUN12 

7317 

1042 

TAD  LDNST 

7320 

3066 

DCA  DLFLO 

7321 

1367 

TAD  (LDNBOT 

7322 

3067 

DCA  DLX16 

7323 

5770 

/ 

DISUP, 

JMP  SFUN12 

7324 

7201 

CLA  I AC 

7325 

3133 

DCA  DISFL 

7326 

1132 

TAD  DISPCH 

7327 

7450 

SNA 

7330 

5766 

JMP  TDISX 

7331 

1334 

TAD  DISTAB 

7332 

3007 

DCA  7 

7333 

5407 

/ 

JMP  I  7 

7334 

7334 

/ 

DISTAB, 

DISTAB 

7335 

5341 

JMP  DISCH1 

7336 

5343 

JMP  DISCH2 

7337 

5362 

JMP  DISTIM 

7340 

5364 

/ 

DISCH1 , 

JMP  DISPK 

7341 

1057 

TAD  CHI 

7342 

7410 

SKP 

7343 

1060 

DISCH2, 

TAD  CH2 

7344 

3007 

DCA  7 

734S 

1062 

TAD  TIME 

7346 

3006 

DISUB, 

DCA  6 

7347 

7330 

K4000 

7350 

0106 

AND  TFUN0 

7351 

7650 

SNA  CLA 

7352 

1006 

TAD  6 

/KEEP  LOOKING 
/OK .  POP  RETURN 

/GET  TABLE  OFFSET 

/GET  ADDRESS  WHERE  TO  GO  TO 

/GET  FIELD 
/GET  DATA 

/GO  DISPLAY 

/UPDATE  BUFFER  POINTER 


/SET  FLAG  TO  PREVENT  REPEAT 
/WHICH  CHANNEL? 

/NONE 

/AND  INDEX  INTO  TABLE 
/GO  THERE 


/GET  DATA 

/IS  DISPLAY  SEL? 
/YES.  ADD  TIME 
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7353 

7354 

7355 

7100 

7510 

7020 

CLL 

SPA 

CML 

/NOW  DO  13  BIT  ADD 

/SET  LINK  ACCORDING  TO  SIGN  OF  TIME 

7356 

7357 

1007 

7430 

TAD  7 

SZL 

/RETRIEVE  DATA 

7360 

5622 

DISUM, 

JMP  I  LTAB1 

7361 

5620 

/ 

DISTIM, 

JMP  I  LTAB 

7362 

1062 

TAD  TIME 

7363 

5622 

/ 

DISPK, 

JMP  I  LTAB  1 

7364 

1061 

TAD  PK 

7365 

5620 

/ 

JMP  I  LTAB 

7366 

0246 

/ 

PAGE 

7367 

0572 

7370 

6460 

7371 

0247 

7372 

5602 

7373 

7250 

7374 

7157 

7375 

7143 

7376 

0271 

7377 

5631 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/FUNCTION  JUMP  TABLE. 

7400 

5256 

FUNLOC, 

FUN0 

/CALIBRATOR  LEVEL  CHI 

7401 

5600 

FUN  1 

/MODE  OF  OPERATION 

7402 

5615 

FUN2 

/GAIN  CONSTANT  CHI 

7403 

5714 

FUN3 

/PEAK  DETECTOR  CHANNEL 

7404 

6035 

FUN4 

/BLOCK  TIME  MINUTES 

7405 

6167 

FUN5 

/STORAGE  FORMAT 

7406 

6217 

FUN6 

/MIN I SAMPLE  RECORD  TIME  IN  SECONDS 

7407 

6241 

FUN7 

/PRESENT  TIME  DAYS 

7410 

6256 

FUN' 8 

/PRESENT  TIME  HOURS 

7411 

6263 

FUN9 

/PRESENT  TIME  MINUTES 

7412 

6427 

FUN  10 

/LEVEL  CHI 

7413 

6425 

FUN  1  1 

/SAMPLE  LENGTH 

7414 

6446 

FUN  12 

/BLOCK  DATA  DUMP  STARTING  LOCATION 

7415 

6507 

FUN  13 

/BLOCK  DATA  PRINT  STARTING  LOCATION 

7416 

6317 

FUN  14 

/READ  MEMORY  ADDRESS 

7417 

2100 

/ 

LBEGIN 

/READ  PROGRAM  FROM  CASSETTE 

7420 

5267 

SFUN0 

/CALIBRATOR  LEVEL  CH2 

7421 

0273 

HTSV5+4 

/MAKE  THIS  POSITION  A  NOP 

7422 

5622 

SFUN2 

/GAIN  CONSTANT  CH2 

7423 

5735 

SFUN3 

/READ  CHI  THRESHOLD 

7424 

6025 

SFUN4 

/BLOCK  TIME  IN  SECONDS 

7425 

6473 

SFUN5 

/NEXT  DATA  BLOCK  STORAGE  LOCATION 

7426 

6224 

SFUN6 

/MINISAMPLE  RECORD  SAMPLE  INTERVAL  IN  MINUTES 

7427 

6272 

SFUN7 

/START  TIME  DAYS 

7430 

6305 

SFUN8 

/START  TIME  HOURS 

7431 

6312 

SFUN9 

/START  TIME  MINUTES 

7432 

6426 

SFUN10 

/LEVEL  CH2 

7433 

6424 

SFl'Nl  1 

/PEAK 

7434 

6460 

SFUN12 

/LDN  DUMP  STARTING  LOCATION 

7435 

6523 

SFl’Nl  3 

/LDN  PRINT  STARTING  LOCATION 

7436 

6337 

SFUN14 

/READ  MEMORY  CONTENTS  IN  DATA  FIELD 

7437 

6361 

SFUN15 

/READ  MEMORY  FIELD 

/ 
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7440 

5253 

HIFUN, 

WFUN0 

7441 

5305 

WFUN 1 

7442 

5612 

WFUN2 

7443 

5675 

WFUN3 

7444 

6032 

WFUN4 

7445 

6042 

WFUN 5 

7446 

6214 

WFUN6 

7447 

6234 

WFUN  7 

7450 

6252 

WFUN8 

7451 

6260 

WFUN9 

7452 

6622 

ERR0 

7453 

6622 

ERR0 

7454 

6437 

WFUN  12 

7455 

6500 

WFUN  13 

7456 

6315 

WFUN 14 

7457 

6355 

/ 

WFUN  15 

7460 

5264 

WSFN0 

7461 

0273 

HTSW5+4 

7462 

5617 

WSFN2 

7463 

5722 

WSFN3 

7464 

6022 

WSFN4 

7465 

6462 

WSFNS 

7466 

6221 

WSFN6 

7467 

6265 

WSFN7 

7470 

6274 

WSFN8 

7471 

6307 

WSFN9 

7472 

6622 

ERR0 

7473 

6622 

ERR0 

7474 

6451 

WSFN12 

7475 

6514 

WSFN13 

7476 

6321 

WSFN14 

7477 

6356 

/ 

/ 

/ 

/ 

WSFNIS 

/SET  CALIBRATOR  LEVEL  CHI 
/SET  MODE  OF  OPERATION 
/SET  GAIN  CONSTANT  CHI 
/SET  PEAK  DETECTOR  CHANNEL 
/SET  BLOCK  TIME  IN  MINUTES 
/SET  STORAGE  FORMAT 

/SET  MINISAMPLE  RECORD  TIME  IN  SECONDS 
/SET  PRESENT  TIME  DAYS 
/SET  PRESENT  TIME  HOURS 
/SET  PRESENT  TIME  MINUTES 


/SET  BLOCK  DATA  DUMP  STARTING  LOCATION 
/SET  BLOCK  DATA  PRINT  STARTING  LOCATION 
/WRITE  MEMORY  ADDRESS 

/BEGIN  EXECUTION  AT  CURRENT  MEMORY  ADDRESS 

/set  calibrator  level  ch2 

/MAKE  THIS  POST  ION  A  NOP 

/SET  GAIN  CONSTANT  CH2 

/SET  CHI  THRESHOLD 

/SET  BLOCK  TIME  IN  SECONDS 

/SET  NEXT  LATA  BLOCK  STORAGE  LOCATION 

/SET  MIX  I SAMPLE  RECORD  SAMPLE  INTERVAL  IN  MINUTES 

/SET  START  TIME  DAYS 

/SET  START  TIME  HOURS 

/SET  START  TIME  MINUTES 


/SET  LDN  DUMP  STARTING  LOCATION 
/SET  LDN  PRINT  STARTING  LOCATION 
/WRITE  MEMORY  CONTENTS  IN  DATA  FIELD 
/WRITE  MEMORY  FIELD 
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» 


/ 


7500 

7501 

7502 

7503 

7504 

7505 

7506 

7507 

7510 

7511 

7512 

7513 

7514 

7515 

7516 

7517 

7520 

7521 

7522 

7523 

7524 

7525 

7526 

7527 

7530 

7531 

7532 

7533 

7534 

7535 

7536 

7537 

7540 

7541 

7542 

7543 

7544 

7545 

7546 

7547 

7550 

7551 

7552 

7553 

7554 

7555 

7556 

7557 

7560 

7561 

7562 

7563 

7564 

7565 

7566 

7567 

7570 

7571 

7572 

7573 

7574 

7575 

7576 

7577 


2000 

2001 

2103 

2104 
2106 
2207 
2210 

2312 

2313 

2314 
2415 
2417 

2520 

2521 
2622 
2623 

2725 

2726 
3027 
3030 

3131 

3132 

3233 

3234 

3335 

3336 
3437 

3540 

3541 
3642 

3743 

3744 
4045 

4146 

4147 
4250 
4351 

4452 

4453 
4554 
4655 
47S6 
5057 
5157 
Si  60 
5261 
5362 
5463 
5564 
5664 
5765 
6066 
6167 
6270 
6470 
6571 
6672 
6773 
7074 
7174 
7375 
7476 
7577 
7777 


IS  THE  LOG  AND  ANT  I -LOG  TABLES 
6  BITS  IS  ANTI  LOG  BASE  4 
bits  IS  LOG  BASE  2 

LUGTAB , 

2000; 


2001; 
2103; 
2104; 
2106; 
2207; 
2210; 
2312 
2313; 
2314; 
2415; 
2417; 
2520; 
2521; 
2622; 
2623 
2725; 
2726; 
3027; 
3030; 
3131; 
3132; 
3233; 
3234 
3335; 
3336; 
3437; 
3540; 
3541; 
3642; 
3743; 
3744 
4045; 
4146; 
4147; 
4250; 
4351; 
4452; 
4453; 
4554 
4655; 
4756; 
5057; 
5157; 
5160; 
5261; 
5362; 
5463 
5564; 
5664; 
5765 ; 
6066; 
6167; 
6270; 
6470; 
6571 
6672; 
6773; 
7074; 
7174; 
7375; 
7476; 
7577; 
7777 
/ 

/ 


/ 


PAGE 
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/ 


/ 

•LOPG 

/ 

/ 

/  INPUT  LEADER  CHECK 


2100 

41 15 

/ 

LBEGIN, 

CALL  SETMD 

2101 

5506 

2102 

5777 

-MINITA-1 

2103 

2000 

MINITA 

2104 

1372 

TAD  (STATIN 

2105 

3771 

DCA  TP  IN 

2106 

41  15 

CALL  T INSET 

2107 

7753 

2110 

6627 

TIN 

2111 

7200 

CLA 

2112 

1370 

TAD  (-4 

21 13 

3424 

DCA  I  PRSTCT 

21 14 

41  15 

IX, 

CALL  UIN 

2il5 

1676 

21  16 

1367 

TAD  (-377 

21  17 

7640 

SZA  CLA 

2120 

5300 

JMP  LBEGIN 

2121 

2424 

1SZ  I  PRSTCT 

2122 

5314 

JMP  IX 

2123 

3424 

IXI, 

DCA  I  PRSTCT 

2124 

4115 

CALL  UIN 

2125 

1676 

2126 

7110 

CLL  RAR 

2127 

7430 

SZL 

2130 

2424 

ISZ  l  PRSTCT 

2131 

7440 

SZA 

2132 

5326 

/ 

JMP  .-4 

2133 

7346 

KM3 

2134 

1424 

TAD  I  PRSTCT 

2135 

7740 

SZA  SMA  CLA 

2136 

5323 

JMP  IXI 

/ 


/ 

/MAIN  INPUT  ROUTINE 

/ 


2137 

4115  UARTI, 

CALL  SETMD 

2140 

5506 

2141 

3777 

-VDIS-1 

2142 

0000 

0 

2143 

3426 

DCA  I  PRREM 

2144 

3431 

DCA  I  PRPAR 

2145 

3427 

DCA  I  PRBYT 

2146 

41 15 

CALL  DLOOP 

2147 

7713 

2150 

30  20 

DCA  DTI ME 

2151 

1425 

TAD  I  PRCNT 

2 1 52 

3071 

DCA  DUMPFL 

2 1  S3 

4115 

CALL  DLOOP 

2154 

7713 

2155 

3072 

DCA  DUMPT 

2156 

1425 

TAD  I  PRCNT 

2157 

3073 

DCA  DUMPT 1 

(AT  LEAST  4  OF  0377  CODE  AND  A  0000 > 
/START  TAPE 

/ENABLE  FLAG  TESTING 

/SET  UP  POINTERS 

/CLEAR  TIN  FLAG 

/LOOK  FOR  LEADER 

/FIRST  GET  4  OR  MORE  200'S 

/GET  INPUT  CHAR 

/IS  IT  LEADER? 

/NO.  TRY  AGAIN 
/KEEP  COUNT 

/GO  GET  A  CHAR 

/COUNT  THE  ONE’S 
/DONE  WITH  WORD? 

/NO  MORE  THAN  3  ONE’S  ALLOWED 
/NO.  KEEP  LOOKING 

/TURN  OFF  DISPLAY 

/ZERO  CHECKSUM 
/CLEAR  ERROR  STATUS  BUFFER 
/CLEAR  ERROR  ADDRESS  (WORD  PAIR) 
/GET  FIELD 

/GET  FIRST  ADDRESS 
/GET  LAST  ADDRESS 

/GET  NUMBER  OF  WORDS  TO  TRANSFER 
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/ 

/ 


2160 

5766 

JMP  U  ART  11 

/NEED  MORE  ROOM 

2166 

1642 

PAGE 

2167 

7401 

2170 

7774 

2171 

0253 

2172 

6626 

/ 

•VLOPG 

/ 

HART  1 1 , 

1642 

4115 

CALL  DLOOP 

/GET  DATA 

1643 

7713 

1644 

4115 

CALL  PUTDAT 

1645 

1725 

1646 

2073 

ISZ  DUMPT1 

/TEST  FOR  END  OF  BLOCK 

1647 

7410 

SKP 

1650 

5256 

JMP  ICHK 

1651 

1425 

TAD  I  PRCNT 

1652 

41  15 

CALL  PUTDAT 

1653 

1725 

1654 

2073 

ISZ  DUMPT1 

/TEST  FOR  END  OF  BLOCK 

1655 

5242 

/ 

JMP  UARTI1 

1656 

4115 

/ 

ICHK, 

CALL  UIN 

/GET  CHECKSUM 

1657 

1676 

1660 

7200 

CLA 

1661 

1426 

ITPKILL 

,  TAD  I  PRREM 

/CHECK  SUM  SHOULD  BE  ZERO 

1662 

0364 

AND  (377 

/TO  8  BITS 

1663 

4115 

CALL  OCT BCD 

/SHOW  IN  DISPLAY 

1664 

6363 

1665 

4115 

CALL  FUN2AB 

/IN  BCD 

1666 

5636 

1667 

4115 

CALL  SETMD 

/TURN  OFF  TAPE  AND  TURN  ON  DISPLAY 

1670 

5506 

1671 

1777 

-VDIS-MINITA- 1 

1672 

4000 

VDIS 

1673 

1363 

TAD  (5000+TPINX 

/STOP  TAPE  CHECKING 

1674 

3762 

/ 

/ 

/ 

DCA  TP  IN 

1675 

5761 

JMP  TP  I NX 

/DONE . 

/ 

/ 

/ 

/ 

UIN, 

UINCUART  INPUT  SUBROUTINE) 

1676 

1520 

TAD  I  STACK 

/SAVE  RETURN  IN  BUFFER 

1677 

3433 

DCA  I  PRRET 

1700 

2120 

ISZ  STACK 

1701 

5761 

/ 

TPINH, 

JMP  TP I  NX 

/DO  OTHER  THINGS  UNTIL  TAPE  IS  READY 

1702 

4115 

CALL  T INSET 

/SET  UP  POINTERS 

1703 

7753 

1704 

6626 

STATIN 

/GET  ERROR  FLAGS 

1705 

0360 

AND  (70 

/SAVE  ERROR,  IF  ANY 

1706 

7450 

SNA 

1707 

5313 

JMP  .+4 

1710 

3431 

DCA  I  PRPAR 

1711  1071 

1712  3427 

1713  6627 

1714  0364 

1715  3006 

1716  1006 

1717  1426 

1720  3426 

1721  1433 

1722  3007 

1723  1006 

1724  5407 


1725  3007 

1726  6000 

1727  7040 

1730  3055 

1731  1070 

1732  7106 

1733  7006 

1734  1125 

1735  6607 

1736  1007 

1737  3471 

1740  [125 

1741  6607 

1742  2055 

1743  6001 

1744  2071 

1745  7000 

1746  5523 

1760  0070 

1761  0257 

1762  0253 

1763  5257 

1764  0377 


TAD  DUMPFL 
DCA  1  PRBYT 
TIN 

AND  (377 
DCA  6 
TAD  6 

TAD  I  PRREM 
DCA  1  PRREM 
TAD  I  PRRET 
DCA  7 
TAD  6 
JMP  1  7 


PUTDAT,  DCA  7 

SKON 

CMA 

DCA  TEMP3 
TAD  DTI ME 
CLL  RTL 
RTL 

TAD  MODE 
SELMD 

TAD  7 

/  DCA  I  DUMPFL 

TAD  MODE 
SELMD 
ISZ  TEMP3 
ION 

ISZ  DUMPFL 
NOP 

RETURN 

PAGE 


/ 


/INPUT  FROM  UART 
/MASK  OUT  UPPER  4  BITS 
/SAVE  TEMPORARILY 
/UPDATE  CHECKSUM 


/RETRIEVE  RETURN  ADDRESS 


/SAVE  DATA  TEMPORARILY 
/GET  FIELD 

/AND  ALIGN  FOR  HARDWARE 

/SET  HARDWARE 

/PUT  DATA  AWAY 
/RESTORE  HARDWARE 

/ADVANCE  ADDRESS  POINTER 
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/ 

/ 

/ 

/ 

•HIPG 

/ 

7713 

1033 

/ 

DLOOP , 

TAD  PRRET 

/SAVE  RETURN  ON  SECOND  LEVEL 

7714 

3013 

DCA  XRT 1 

7715 

1520 

TAD  1  STACK 

7716 

3413 

DCA  I  XRT1 

7717 

2120 

/ 

ISZ  STACK 

7720 

4115 

CALL  U1N 

7721 

1676 

7722 

3424 

DCA  I  PRSTCT 

/HAVE  FIRST  CHAR 

7723 

4115 

CALL  UIN 

7724 

1676 

7725 

7106 

CLL  RTL 

7726 

7006 

RTL 

/SHIFT  LEFT  4  BITS 

7727 

3425 

DCA  I  PRCNT 

/STORE  IT 

7730 

1365 

TAD  (7400 

/MASK  OUT- 

7731 

0425 

AND  I  PRCNT 

/  LO  8  BITS 

7732 

1424 

TAD  I  PRSTCT 

/COMBINE  WITH  FIRST  WORD 

7733 

3424 

DCA  1  PRSTCT 

/PUT  IN  PROPER  MEMORY  LOCATION 

7734 

1425 

TAD  I  PRCNT 

/SET  UP  2ND  WORD  HIGH  BITS 

7735 

7106 

CLL  RTL 

7736 

7006 

RTL 

7737 

0365 

AND  (7400 

7740 

3425 

DCA  I  PRCNT 

7741 

4115 

CALL  UIN 

/GET  LAST  CHAR 

7742 

1676 

7743 

1425 

TAD  I  PRCNT 

7744 

3425 

DCA  I  PRCNT 

7745 

1033 

TAD  PRRET 

/GET  RETURN  FROM  BUFFER 

7746 

3013 

DCA  XRT 1 

7747 

1413 

TAD  I  XRT1 

7750 

3007 

DCA  7 

7751 

1424 

TAD  I  PRSTCT 

/EXIT  WITH  FIRST  WORD  IN  AC 

7752 

5407 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

T INSET, 

JMP  I  7 

7753 

1363 

TAD  ( (UIN 

/SET  UP  INPUT  CALL  IF  NEEDED 

7754 

3022 

DCA  B I  TOUT 

7755 

1362 

TAD  (ITPDAT 

/ADRESS  OF  BUFFER 

7756 

5761 

/ 

JMP  PRSETi 

/SET  UP  POINTERS 

7757 

0040 

/ 

X40, 

/ 

40 

7761 

3260 

/ 

PAGE 

7762 

0557 
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7763 

7764 

7765 


7764 

1676 

7400 


0000 

0200 

1200 

1400 

1600 

2000 

2200 

2400 

2600 

3000 

3200 

3400 

3600 

4000 

4200 

4400 

4600 

5000 

5200 

5400 

5600 

6000 

6200 

6400 

6600 

7000 

7200 

7400 

7600 


0200  qi 
03S5  03' 

1365  13( 

1555  15« 

1 747  j  75 
2161  216 
2370  237 

2565  256 

2772  277; 
3164  316. 
3363  336- 
357 1  357( 

3763  3762 
4167  4166 
4365  4365 
4S66  4566 
4264  4764 

fifi  S!61 

|356  5355 
fS72  5571 
|270  5767 
6171  6270 

5 362  6367 

fS66  6566 
6767  6767 
7170  7i7) 

2366  7365 
7600  7577 

7760  7760 


/ 


FIELD  0 
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0600 

060) 

0602 

0603 

0604 

0605 

0606 

0607 

0610 

0611 

0612 

0613 

0614 

0615 


0623 

0624 

0625 

0626 

0627 

0630 

0631 


0  0000 
1  6021 

2  5201 

3  6026 

4  7200 

5  5600 

>  0000 
7  3005 
I  1005 
1006 
3006 
1005 
4200 
5606 

0000 

4323 

0377 

4206 

5616 

0000  I 

4323 

7012 

7012 

0377 

4206 

5623 


0632 

0633 

0634 

0635 

0636 

0637 

0640 

0641 

0642 

0643 

0644 

0645 

0646 

0647 

0650 

0651 


0000 
4323 
7006 
7006 
0376 
3004 
621  1 
1411 
6201 
7004 
7006 
7006 
0375 
1004 
4206 
5632 


0652 

0653 

0654 

0655 

0656 

0657 


0000 

1374 

3007 

4200 

2007 

5255 


/ 

CDF=6201 

/ 

•600M  BUIU)  P 
300  TPUN ,  0 

g  PSF 

oc  JMP 

PLS 

3*  CLA 

00  /  JMP  I 

CKPUN,  0 

05  2°A  5 

£?  TAD  5 
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/ 
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S 
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(360 
4 
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00 
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''GET  HIGH  BITS  OF  MEMORY  INTO 
/LOW  BITS  OF  ROM 


(17 

4 

CKPUN 
I  GETBT 
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/ 
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/ 

PUNCX, 
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/ 
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1372 

1024 
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/ 
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1020 

BKLP 

1026 

7104 
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3020 

1030 

1021 

1031 

7010 

1032 

3021 

/ 

1033 

2022 

1034 
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/ 

1035 

1021 
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7040 
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/ 

1040 

2023 
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/' 
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/« 

/ 
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/ 
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TAD  (PAGE0-1 
DC  A  10 
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JMS  TI10 
JMS  Dill 
ISZ  7 
JMP  .-3 


DC  A  23 
STA 
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/DO  BIT  INVERSION  FOR  PROG 
/STARTING  ADDRESS 


JMS  TI10 
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DCA  21 
TAD  (-14 
DCA  22 


/GET  A  WORD 


/CLEAR  RESULT 
/DO  A  FULL  WORD 


TAD  20 
CLL  RAL 
DCA  20 
TAD  21 
RAR 
DCA  21 


/GET  WORD 
/GET  ANOTHER  BIT 
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/PUT  BIT  INTO  RESULT 
/BACKWARDS 


ISZ  22 
JMP  BKLP 
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CM  A 

JMS  DI 1 l 
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RECORD  NUMBER  3 


TAD  (7377 
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I 
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TAD 

(6777 

1050 

301 1 

DC  A 

1 1 

1051 
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TAD 

(7377 

1052 

4764 
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MID 

/CHIP 

/ 
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LO  4  BITS  S-8  7400-7777 
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TAD  <6377 
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/CHIP  6  HIGH  8  6400-6777 
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TAD 
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3011 

DC  A 

1 1 
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TAD 

(6377 

1062 

4764 
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TAD  (5377 
JMS  HIGH 
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1361 

TAD 

(4777 

1070 

3011 

DCA 

1 1 

1071 
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(5377 

1072 
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RECORD  NUMBER  7 
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RECORD  NUMBER  8 
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RECORD  NUMBER  12 
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4764 

/ 
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/ 
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3377 

1 155 

2777 

1 156 

4377 
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1 161 
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/ 
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»..#***— 
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/ 
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n 

14 
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/ 
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# 
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/ 
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/ 

JMS 

LOWX 
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1365 
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n 

17 
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30 
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/ 
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0677 

1565 

1777 

1566 

2777 

1567 

3777 

1570 

4777 

1571 

5777 

1572 

6777 

1573 

0730 
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7300 

HI  HI 

1210 

7324 

11  mux 

1500 

6200 

mro 

7713 

0730 

HSU*  4 

650 1 

0066 

IKC5 

66*  *0 

77  1  J 

ususx 

6604 

0<J6  7 

ursiw 

*136.3 

OJ67 

HT.sk  5 

0367 

015J 

I’llK 

1656 

704.6 

IIiMl* 

0  1 5*  * 

7143 

IMT 

30*i  1 , 

7074 

I  MM. 

3647 

71  13 

ISP  IK 

607( 

7146 

IVf  1.*) 

CM  >36 

70JJ 

isn 

00  ;o 

(«>70 

I  NT  3 

**»>?  1 

007* 

IN  T3 

0**13 

726; 

ikr.rs 

0 ;  33 

imil.  1661 


KKAKl  0134 
KCAI.2  0-35 
KP;o  0(56 
KPiOO  0J74 
KUMMiO  017; 
KU ; 44  0162 

KI)!?  0 ;  57 

KM?0  0160 

XU700  0173 

KI)2*X)0  0170 
KD320  0163 
A'lWO  017S 
KIM  00  0172 


KP4O00  0lf,7 
KU'-uni  (*,64 
K/i-V  o;r,; 
XP  -"i  -O  o»65 
KD ’760  ( 1  ]  fj: 
K*l:3  0155 

Kill  MS  210*1 
Ill'll*  l  7230 
I  D‘lf*2  '2*M 
I  MM  3  7312 

ID’- POT  *'572 

1.1 1*.  IS  0044 

I.DM.KN  mu 3 
KIjN'IT  VHJ47 
in.M'T  1*046 
I  l’M’I  T  4751 
U*NST  0042 
I.IiVsTR  1*033 
M'S  TOP  0672 
KPN  16  0045 

I.liM  7  0016 
I-UPER  4545 
U:\DR  0652 


KMV.>V  7)57 
I  *  "hi  IV  2657 
Ian 4 AH  75.*o 
I.o'-Ti»i.  n<54 
I.UJT.  2;i«* 
K**V  12**0 
I. OCX  1 4  70 
KT.Ml  7730 
IT. MU  '*7-2 
Ml  MU)  o;>i 
Ml  Ml  l.D  **122 
Mi  MKU;  **124 


OKT3B 
PVT  7. 

I* AH  .? 
ITU-  «*S 
Ik 

F  Nfl  I 

PM.O 

I'NMl 

I'KITF 

IKSU 

I  K  h\TC 

J’fvl  NT 

I  k  PAT 
TH!  H  * 
FIUUR  • 

II  HINT  . 
J'KHT!  • 
kkint:  . 

I'KU'N*  / 

rmi*  . 

I'lMf  . 
i  RMri  - 
I’KN  3  T2  4 
PKNTITI  1 
PKNTsr  4 
KfcN  ;  A  ^ 

I  KS  : It  4 
PKS2A  4 
PKN3  4 
PkN.l.A  4 
YViN.'C  4 
I'kN.'P  4 

J‘k-  •«•  o 
l’k-  "  2  *1 

l’K«"3  i> 
Plt-h‘4  1* 
I'kM*  5  It; 
n-'**  t. 

Fld»*  /  1  v 


Mi  *!  1  < )p 

*h>S6 

i'k'rt!  M 

M I  f> 

13«'7 

MIPS 

14  77 

phm  r 

33«.s 

Mni-F 

O  1  75 

i-Ksi.r  1 

3  **f.i  1 

M'ipJMF 

*.4  17 

I  HSl  T2 

3365 

M'M-ST 

4S;2 

PH  ST  IT 

l»f»'*4 

Ml  !  S 

6  743 

l*kSVR 

0543 

MPI  T 

6756 

f'KTAB 

4  74  1 

6736 

Pi  \('K 

NAI  TOT 

1636 

PI  ri»\T 

SVM'  >SK 

6220 

KM  mm: 

Oi  1 1*01 

6.7(.3 

Kumro 

uirriH 

64,»I 

RAIiDFI 

3147 

6404 

RADU1.2 

OJ‘K 

0406 

KADU1.3 

3305 

on  bit 

4523 

HAPUF4 

OUTBTl 

4S32 

RADliKS 

OUT FLO 

0040 

KADTBl 

2600 

HU’TIC 
Ki*‘M  V 
n;  < 1  is 
HI  i  I  X  l 
HI  H.V? 
Kirs 
HIT!  RS 
KIT  2 
SUTiX'  . 

SAVAC  1 
SAVJX  f 
SAVM'J  ( 
SI  1  -1/  ! 
SI.TM  P 

sktit  i 

Si S  !4A  f 
M  I  \i»  .« 
SKIN!**  f 
SI  I  V ;  (  r 

sirs; 2  6 
si  rs ;  3  r 
SITS  14  6 
NM  V.5  6 
SI  l  S‘2  *• 
SHN3  5 
SFIS4  6 
Sf r\5  6 

SKINT,  * 

sirs 7  c 
sh  va  6. 

SKVVj  f, 
SMPIU  in 
SI  V'K  a 
SlAK  t‘. 

START  '/( 
ST  k  0* 
SI  *  >KK  in 
S1KI  1- 
SHUT  0 
SJRM  7f 

sTki 3  7C 

STHT3  76 
S13MI  H  34 

S~1 3  Mo  34 

S7 5M i  34 
ST 3 M 15  34 
ST. '.M2  34 

NT  .'M3  34 

ST  3  *14  34 

ST  3  MS  34i 
ST3M6  241 
NT3M7  3ut 
ST  3  MS  34 
ST3.M7  34* 

ST4|  KR  34; 
ST  4  MO  36." 
STM. MI  36: 
S'T4Mi5  36C 
ST4M2  364 
ST4H3  364 


S'V5f! 

4.7  '  , 

Sk  *  J  4 
S’-  - 

3  * 

skcir 

4,'iM 

S  » x 
Sk  Sj. 

4  • 

SU  ’ 

•iT.V, 

S.'\ 

4f  4 

5U  '••* 

4*".  "5 

Sk'v 

4  :»-3 

S’-'! 

47.1 ; 

S-s 

5  05.4 

SU-A 

* ,  *»” 

Sk  s. ' 

5: 4s 

Kk  nJ. 

57  -o 

SCnT 

SV  v ;  f) 
s  -  x ;  ; 

pll 

s’n.Mj 

3  ;<  .7 

S4MJ 

71  .  ;  3 

"1  Ai.MKK 

.3 

T 

5-*  .  5 

T  -.)■■!** 

54  0; 

1  m  . 

5-  0, 

1  Ai.M.5 

4.—:  ■* 

T\J.M3 

TU-.M3 

5-45 

T  \PM.: 

T  )i-M5 

5US  » 

1  U«'*6 

5-53 

T  U  *1  ' 

54  5  ' 

T^:  -•'n 
'i  v..-:  * 
TU'.i  1 
Tlss 

TIM*  A 

<■:'  i 

lK'*i  \ 

! 

Tl  Vi  ! 

r i  v!  1  \ 

n  vi  . 

•. »  . . 

T 1  *: ! '  7 

>  -  > 

;  "5 

1  J  l\ 

Ti‘  is;  I 

...0 
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TPOUTX 
TPSET 
TPSV 
TPUN 
TRBIT 
TRBITi 
TRBLK 
TRDAT 
TR3 
TSEC 
TSVF 
TSW0 
TSV0A 
TSV0X 
TSW1 
TSV1A 
TSV1X 
TSV3 
TSV3B  i 
TSW3F  i 
TSW3X  < 
TSW4  ( 
TSW4B  ( 
TSV4F  ( 
TSV/4X  { 
TSW5  ( 
TSW7  ( 
TSW7B  C 
TSW8  e 
TSV8B  0 
TSW8C  0 
TSW8F  0 
TSV8X  0 
TTSET  5 
UARTI  2 
BAR Til  K 
UIN  li 
VLOPG  II 
WFUN0  5; 

WFUN1  5 : 
WFUN1A  5: 
WFUN1C  5' 
VFUN1D  5^ 
WFUN1E  S£ 
VFVSIF  55 
WFUN1G  55 
VFUN1H  55 
WFUN12  64 
WFUN13  65 
WFUX14  63 
WFUN15  63 
WFUN2  56 
WFUN2A  56: 
WFUN3  56' 
WFUN3A  57 
WFUN4  60: 
VFVSS  60* 
WFUN6  621 
VFUN7  62: 
WFUR7A  624 


UTX  0253 
ET  5247 
V  0023 
X  0600 
IT  5216 
IT!  5225 
LK  0105 
IT  0544 
5235 
'  0140 

■  0355 

*  0201 
>A  034 1 
>X  0204 
0204 
A  0340 
X  0210 
0210 
B  0337 
F  0076 
X  0215 
0215 
B  0336 
F  0077 
<  0222 
0222 
0226 
1  0335 
0232 
l  0333 
I  0334 
'  0101 
0241 
5474 
2137 
1  1642 
1676 
1642 
5253 
5305 
\  5347 
:  5464 
)  5467 
J  5521 
r  5527 
i  5537 
I  5544 
‘  6437 
;  6500 
6315 
6355 
5612 
5655 
5675 
5710 
6032 
6042 
6214 
6234 
6245 


WFUN7B 

WFLW8 

WFUN9 

WSFN0 

WSFN’12 

WSFN'13 

WSF.V14 

WSFN1S 

WSFN2 

WSFN3 

WSFV4 

WSFN5 

WSFN5A 

WSFN5B 

WSFN6 

VSF.V7 

WSFN8 

USFS9  i 

XFUN3  : 

XFUN3A  ( 

XFUN3B  ( 

XRT 1  < 

XRT2  < 

XRT3  ( 

XR 16  « 

XR17  6 

XSW3A  3 

XSW3B  3 

X40  7 


B  6243 
6252 
6260 
5264 

2  6451 

3  6514 

4  6321 

5  6356 
5617 
5722 
6022 
6462 

.  6530 
:  6545 
6221 
6265 
6274 
6307 
5740 
6002 
6007 
0013 
0014 
0015 
0037 
0017 
3273 
3305 
7757 


APPENDIX  C: 


LISTING  OF  PROGRAM  USED  TO  WRITE  UV 
ERASABLE,  READ  ONLY  MEMORIES 


INTEGER  TNAME! 12) ,FNAME, TEMPI  12) 

INTEGER  SHFTL.SHFTR 

INTEGER  RBlrK(256> ,EBUF<256) ,DBUF(256) ,VBUF(256) , NAME ( 12) 

FNAME=.TRUE. 

DO  11  1=1,256 
DBUF  < I ) =0 
EBUF  < I ) =0 
WBUF ( I >  =0 
RBUF !  I )  =0 
II  CONTINUE 

TYPE  ’TO  BACK  UP  OR  STOP  GIVE  A  ZERO  OR  A  NULL  ANSWER' 

10  WRITE! 10,997) 


FORMAT! '0  ACTION: ’ ,/, 

1 

4X. 

’0 

STOP' ,/, 

1 

4X , 

’  1 

READ  FROM  DATA  FILE',/, 

1 

4X, 

'2 

LIST  DATA  BUFFERS’,/, 

1 

4X, 

'3 

WRITE  TO  PROM  FROM  DATA 

BUFFER’ ,/, 

1 

4X , 

’4 

READ  FROM  PROM  INTO  DATA 

BUFFER',/ 

I 

4X , 

'5 

WRITE  A  SINGLE  BYTE’ ,/, 

l 

4X. 

'6 

READ  A  SINGLE  BYTE’ ,/, 

1 

4X . 

'7 

READ  BEFORE  WRITE’,/, 

1 

4X, 

,  , 

. S 

READ! 1 1 )  I 

IF  (I.EQ.0.OR.I.EQ.-1)  STOP 
IF  II.LT.O.OR. I.GT.7)  GOTO  10 


GOTO  (1000.2000,3000,4000,6000,5000,7000)  I 
1000  WRITE! 10,999) 

999  FORMAT! ’0  DATA  FILE  S  NAME=’ ,Z) 

READ! 11, 998)  NAME! 1 ) 

998  FORMAT  !S20) 

IF  ! FNAME. AND. LENGTH! NAME ) .EQ.0)  GOTO  10 
IF  ( LENGTH < N AME > .GT.0)  GOTO  1010 

DO  1011  1=1,12 

1011  NAME! I ) =TNAME! I ) 

1010  DO  1012  1=1,12 

1012  TNAME ! 1 ) =NAME ( I ) 

FNAME=. FALSE. 

WRITE) 10,979)  NAMEll) 

979  FORMAT! '  FILE  NAME  READ  =\S20) 

ACCEPT  'RECORD  #=',  IR 
IF  ! IR.LE.0)  GOTO  10 

CALL  FOPEN! 1 ,NAME) 

IF  (IR.EQ.l)  GOTO  1300 

IRM= I R— 1 

DO  1250  1=1 , IRM 
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12  se 

1300 


c 

2000 

996 


C 

2100 

995 


994 


C 

2200 

993 


C 

2300 


2305 


992 


C 

2400 

991 


C 

3000 


CALL  INDATA  (WBUF) 
CONTINUE 


lall  INDATA (WBUF) 
CALL  FCLOS! 1 > 

GOTO  10 


LIST  DATA  BUFFERS 
WRITE! 10,996) 

FORMAT! -0  WHICH  DATA  BUFFER •’  / 

4X.’l  WRITE*,/,  ’  ’ 

4X,*2  READ1,;, 

4X,’3  DIFFERENCE’,/, 

4X,  4  ERROR’,/, 

4V  ’ 

READ!  11)  I . . 

ip  H 1 -E0--l>  GOTO  10 
^  ^ .  0 .  OR .  I .  GT .  4 )  GOTO  7000 
GOTO  (2100,2200,2300,2400)  I 

WRITE  BUFFER 
WRITE! 10,995) 

FORMAT! ’0WRITE  BUFFER’) 

WRITE! 10,994)  WBUF 

W2U2(2X’40M’1X’40I4’1X>>  > 

READ  BUFFER 
WRITE! 10,993) 

FORMAT ! ’ OREAD  BUFFFR ' ) 

WRITE! 10,994)  RBUF 
GOTO  2000 

DOF2305Nf?iBfs6EEN  mAD  BVFFER  AND  WRITE  BUFFER 
J=RBUF!D  ’ 

X=WBUF(I) 

CONTINUE( * JAND‘  N0T-K)  -0R-  ( • NOT . J  .AND.K) ) .AND.377K 
WRITE! 10,992) 

wffi^!00^^Eg^E  BWFE*’> 

GOTO  2000 

ERROR  BUFFER 
WRITE! 10,991) 

FORMAT! ’0ERROR  BUFFER’) 

WRITE! 10,994)  EBUF 
GOTO  2000 


WRITE  TO  PROM 
TYPE 


150 


TYPE  ’WRITING  PROM' 

TYPE  ’CHECK  PROGRAMMER...  PI  ON  P2  ON  ...  STRIKE  NEWLINE’ 
READ! 11 ,998)  TEMPI  1) 

IF  ( LENGTH (TEMP ) .NE.0)  GOTO  10 
DO  3005  1=1,256 
EBUF  < 1 >  =0 
3005  CONTINUE 


DO  3110  1=1,256 

3200  CALL  P 1 0 ( I - 1 , VBUF ( I ) , RBUF ( I) ) 

IF  ( RBUF ( I ) . EQ • VBUF (I ) )  GOTO  3100 
EBUF ( I ) =EBUF ( I ) + I 
I M 1  =  I  —  1 

WRITE( 10,976)  IMl.EBUF(I) 

976  FORMAT ( ’  <32>  LOCATION’ ,014, ’  IN  ERROR’ ,5X, 013, ’  RETRIES’) 
IF  (EBUF(I) ,GT. 10)  GOTO  3100 
GOTO  3200 

3100  IF  (I.EQ.l)  GOTO  3110 

IF  ( EBUF ( I - 1 ) . GT . 0 )  TYPE 
3110  CONTINUE 


GOTO  10 


C  READ  PROM 

4000  TYPE 

TYPE  ’READING  PROM’ 

TYPE  ’CHECK  PROGRAMMER...  PI  ON  P2  OFF  ...  STRIKE  NEWLINE’ 
READ! 11,998)  TEMPI  1) 

IF  ( LENGTH ( TEMP > .NE.0)  GOTO  10 

DO  4100  1=1,256 

CALL  P 10 <1—1 ,0,RBUF( I ) ) 

4100  CONTINUE 

GOTO  10 


C  READ  A  SINGLE  BYTE 

5000  ACCEPT  ’WHICH  BYTE  TO  BE  READ(OCTAL) = ’ , I 
IF  (I.EO.-D  GOTO  10 
IF  (I.LT.0.OR. I .GT.377)  GOTO  5000 
I  1  =  1/100 

1 2= ( I -  1 00* I  1 ) / 1 0 
13=  (I- 100* I  l- 12*  10) 

1=11*64+12*8+13 

WRITE ( 10,977)  I 

977  FORMAT < ’  BYTE  NUMBER  IS=’,0I6> 

CALL  PIO(I ,0,K> 

KK= ( .NOT . (IBITR(K,8))) . AND.377K 
WRITE! 10,990)  K,K,KK 

990  FORMAT! ’0DATA=\  15, 016, ’K  COMPLIMENTED  REVERSED* ’ ,015) 
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GOTO  5000 


RyT*!°  BE  ^ADEIHOCTAL)  =’ , I 
n=r/i00‘0‘OR-I  GT-377)  GOTO  6000 

13=0-100*1 1-12*10) 
f= l 1*64+12*8+13 
WR1TE( 10,978)  1 

KRKii.Sg?  10  BE  *R™  K  ’  ,oi8) 

READui;  KATA  (0Cm)  *’•*> 

O=K/i00'0)  0070  6000 

“r!5is55i:,,r,w 
&^n10i,sTO  6010 

]rjil',EQ'K)  G0T0  60 

GOTO  6005 

WRITEO0.988)  111 

StoA6000WORD ’ ,0 ^ ’  WAS  LOADED  VITB  \ 014, ’ 


READING  BEFORE  WRITING 

TYPE  :?B^KNPrSgSSf^IUSG' 
READ  ( 1 1 , 998) ^TEMpt??**  * '  P1  0N 

DO  SGI  =  ri?r-NE'0)  0070  10 

EBUFO)=e  ’  b 

CONTINUE 


WITH’, 014,’  RETRI 


P  2  ON 


STRIKE  NEWLINE 


DO  7010  1=1,256 
IMi  =  I—  i 

,0LOclTio!l°"oH*?  “ffl' ‘oi4^TY 

if  I  ISEARCBITEMPV'Y’ i .LE.0)  GOTO  10 
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7100 

7010 


EBUFU)=EBUF(l)  +  l 
VfRITE(  10,976)  IMl  ,EBUF(  I) 

i‘f  I^.^V 

CONTINUE 
GOTO  10 


END 


10 

C 


IS 


30 

40 

50 


?vJSS0LT INE  INDATA  (WBUF) 
INTEGER  SHFTL 
INTEGER  WBUF (2S6) 


READ  BINARY! l)  I 
IF  (I.EQ.0)  GOTO  10 

SET  COUNTER 
J=1 


12=] . AND.377K 
1=SHFTL!I,8> 
11=1. AND . 377K 


IF  (I2.EQ.0)  GOTO  IS 
READ  BINARY! 1)  ] 

12= I. AND. 377 X 
J=2 

WBUF! 1) =12 


READ  BINARY! 1)  I 
12= I . AND.377K 
1=  SHFTL! ] ,8) 

1 1  =  1  .AND.377K 

IF  1J.GT.256)  GOTO  30 

WBUF ( J ) = I i 
J=J+1 


,1m,iJ-GT-256’  WO  40 
WBUF ! J ) = I 2 
J  =  J+  1 
GOTO  IS 

ICRC= 1 1 
GOTO  50 


ICRC=I2 

J=0 


DO  60  1=1,256 

J=  ( J+VBUFU ) ) . AND.377K 
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60  CONTINUE 

IF  (J.NE.ICRC)  TYPE  ’CHECKSUM  ERROR’ , ICRC, J 

RETURN 

END 


SUBROUTINE  PIO( IA, ID, 10) 

KA=IA.AND.377K 

KD=ID.AND.377K 

A  INTDS 

A  LDA  0, KA-200,3 

A  DOAS  0,51 

A  SKPDN  51 

A  JMP  .-1 

A  LDA  0.KD-200.3 

A  DOAS  0,51 

A  SKPDN  51 

A  JMP  .-1 

A  NIOS  50 

A  SKPDN  50 

A  JMP  .-1 

A  DIA  0,50 

A  STA  0,KO-200,3 

A  DIAC  0,50 

A  DOAC  0,51 

A  INTEN 

A 

IO=KO . AND . 377K 

RETURN 

END 
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APPENDIX  D: 


LISTING  OF  COMPUTER  PROGRAM  USED  FOR 
TESTING  MEMORY  IN  THE  NOISE  MONITOR 

/ 

/THIS  IS  A  MEMORY  TEST  ROUTINE  WHICH  CAN  BE  RUN 
/ANYWHERE  IN  BANK  ZERO  STARTING  AT  A  PAGE  BOUNDARY . 

/ 

/TO  USE,  USE  THE  MONITOR  TO  LOAD  THE  FIRST  THREE  ADDRESSES; 

/ 

/  XFIELD  THIS  SPECIFIES  THE  MEMORY  BANK  <0,1,2,  OR  3) 

/  FIRST  FIRST  LOCATION  TO  BE  TESTED 

/  LAST  LAST  LOCATION  TO  BE  TESTED 

/ 

/ 

/SINCE  THE  ADDRESS  POINTER  IS  INCREMENTED  AFTER  EACH  LOAD, 
/THE  POINTER  IS  POINTING  AT  THE  START  ADDRESS  WHEN  THE  THREE 
/NUMBERS  HAVE  BEEN  ENTERED.  TO  BEGIN  EXECUTION,  TURN  THE 
/FUNCTION  SWITCH  TO  THE  GOTO  POSITION  AND,  WHILE  HOLDING 
/DOWN  THE  EXECUTE  SWITCH,  DEPRESS  THE  DISPLAY  SWITCH. 

/ 

*1000 


1000 

0000 

XFIELD, 

0 

1001 

0000 

FIRST, 

0 

1002 

0000 

LAST, 

0 

1003 

6002 

START, 

I  OF 

1004 

3357 

DCA  PASS 

/CLEAR  PASS  COUNTER 

1005 

4206 

JMS  I OUT 

/SET  UP  PAGE  INDEPENDENT  REFERENCE 

1006 

0000 

I  OUT , 

0 

/THIS  IS  POINTER  TO  OCTOUT 

1007 

1354 

TAD  IADDR 

1010 

1206 

TAD  I OUT 

/THIS  COMPUTES  THE  ABSOLUTE  ADDRESS 

1011 

3206 

/ 

DCA  I OUT 

1012 

1200 

TAD  XFIELD 

/CHANGE  USER  REQUEST  TO  HARDWARE  FORMAT 

1013 

7106 

CLL  RTL 

1014 

7006 

RTL 

1015 

1355 

TAD  D4000 

/KEEP  DISPLAY  ON 

1016 

6607 

/ 

SELMD 

/THIS  APPLIES  TO  ENTIRE  TEST 

1017 

1202 

TAD  LAST 

/GET  NUMBER  OF  LOCATIONS  TO  CLEAR 

1020 

7040 

CMA 

1021 

1201 

TAD  FIRST 

1022 

3357 

DCA  PASS 

1023 

1201 

TAD  FIRST 

/SET  ADDRESS  POINTER 

1024 

3360 

DCA  ADDR 

1025 

3760 

DCA  I  ADDR 

/ZERO  IN  USER’S  FIELD 

1026 

2360 

ISZ  ADDR 

1027 

2357 

1SZ  PASS 

1030 

5225 

/ 

ADR  I, 

JMP  .-3 

1031 

3362 

DCA  DATA 

/INITIALIZE  DATA 

1032 

3364 

DCA  DATA2 

1033 

7240 

STA 

1034 

3361 

DCA  FWD 

/SET  FORWARD  SCAN 

1035 

7240 

STA 

1036 

3365 

DCA  BIT 

/SET  COUNTER 

1037 

1201 

TAD  FIRST 

1040 

3360 

DCA  ADDR 

/SET  UP  POINTER 

1041 

4276 

/ 

RDLP 1 , 

JMS  UPDAT 

1042 

1760 

TAD  I  ADDR 

/GET  DATA  FROM  USER'S  FIELD 

1043 

7041 

CIA 

1044 

1363 

TAD  DATA  I 

/COMPARE  WITH  THE  EXPECTED  VALUE 

1045 

7440 

SZA 
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1046 

4367 

JMS 

ERROR 

1047 

1364 

TAD 

DATA2 

1050 

3760 

DCA 

I  A  DDR 

1051 

1760 

TAD 

I  A  DDR 

1052 

7041 

CIA 

1053 

1364 

TAD 

DATA2 

1054 

7440 

SZA 

1055 

4367 

JMS 

ERROR 

1056 

1361 

TAD 

FWD 

1057 

7650 

SNA 

CLA 

1060 

5326 

/ 

JMP 

BKLP 

1061 

1360 

TAD 

ADDR 

1062 

7160 

STL 

CMA 

1063 

1202 

TAD 

LAST 

1064 

7630 

SZL 

CLA 

1065 

5271 

JMP 

LP1 

1066 

2360 

ISZ 

ADDR 

1067 

7000 

NOP 

1070 

5242 

/ 

LP1 , 

JMP 

RDLP1 

1071 

4276 

JMS 

UPDAT 

1072 

5320 

JMP 

LP2 

1073 

1201 

LP1A, 

TAD 

FIRST 

1074 

3360 

DCA 

ADDR 

1075 

5242 

/ 

UPDAT, 

JMP 

RDLP1 

1076 

0000 

0 

1077 

2365 

ISZ 

BIT 

1100 

5307 

JMP 

UPDAT 1 

1101 

7330 

K4000 

1102 

1362 

TAD 

DATA 

1103 

3362 

DCA 

DATA 

1104 

1356 

TAD 

KM14 

1 105 

3365 

DCA 

BIT 

1 106 

7410 

SKP 

1107 

2276 

UPDAT 1 , 

ISZ 

UPDAT 

1110 

1362 

TAD 

DATA 

mi 

7104 

CLL 

RAL 

1112 

1364 

TAD 

DATA2 

1 1 13 

3363 

DCA 

DATA  1 

1114 

1364 

TAD 

DATA2 

1 1 15 

7010 

RAR 

1 1 16 

3364 

DCA 

DATA2 

1117 

5676 

JMP 

I  UPDAT 

1  120 

1362 

LP2, 

TAD 

DATA 

1  121 

7710 

SPA 

CLA 

1122 

5324 

JMP 

LP3 

1123 

5273 

/ 

LP3, 

JMP 

LP1A 

1 124 

3361 

DCA 

FWD 

1 125 

5242 

/ 

BKLP, 

JMP 

RDLP1 

1126 

1201 

TAD 

FIRST 

1127 

7160 

STL 

CMA 

1130 

1360 

TAD 

ADDR 

1 131 

7630 

SZL 

CLA 

1 132 

5337 

JMP 

BKLP2 

1 133 

7240 

STA 

/MUST  HAVE  CHANGED  SOMEWHERE 
/UPDATE  CONTENTS 

/DID  DATA  GET  THERE? 

/DATA  OK.  DIRECTION? 

/LAST  ADDRESS? 

/NOT  YET 

/UPDATE  DATA  WORDS 
/AND  RESET  ADDRESS 

/ADVANCE  BIT  COUNTER 
/COMPLEMENT  DATA  BIT 

/RESET  BIT  COUNTER 

/TAKE  NORMAL  RETURN 
/THIS  IS  FOR  SKIP  RETURN 
/GET  VALUE  OF  NEXT  BIT 

/UPDATE  FIRST  WORD 
/UPDATE  SECOND  WORD 

/DONE  WITH  BITS.  WHICH  DATA  STATE 
/WERE  WE  IN? 


/SET  BACKWARD  SEQUENCE 
/STARTING  AT  LAST 

/ARE  WE  BACK  AT  THE  BEGINNING? 

/NO.  DECREMENT  ADDRESS 
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1 134  1360 

1 135  3360 

1136  5242 


1 137 

1 140 

1141 

1 142 

1 143 

1 144 

1145 
1  146 
1 147 

1 150 
1  151 
1  152 
1  153 


4276 

5344 

1202 

3360 

5242 

1362 

7710 

S3S0 

5341 

2357 

1357 

4606 

S231 


/ 

BKLP2, 

BKLP2A, 


/ 

BKLP3 , 


/ 

BRLP4, 


1154 

1 155 

1 156 

1 157 
1160 
1 161 
1162 

1163 

1 164 

1165 

1166 
1167 

1170 

1 171 

1 172 

1173 

1174 


0172 

4000 

7764 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

3366 

7330 

6607 

5774 

7777 


/ 

I ADDR, 

D4000, 

KM  14, 

PASS, 

ADDR, 

FWD, 

DATA, 

DATA  1 , 

DATA2, 

BIT, 

ERDAT, 

ERROR , 


TAD  ADDR 
DCA  ADDR 
JMP  RDI.Pl 

JMS  UPDAT 
JMP  BXLP3 
TAD  LAST 
DCA  ADDR 
JMP  RDLP1 

TAD  DATA 
SPA  CLA 
JMP  BKLP4 
JMP  BXLP2A 

ISZ  PASS 

Tad  pass 

JMS  J  lOlfT 
JMP  ADR  1 

OCTOUT-lOUT 

4000 

-14 

0 

0 

0 

0 

0 

0 

0 

0 

0 

DCA  ERDAT 
R4000 

SELMO 
JMP  I  .*i 

7777 


1200 

1201 

1202 

1203 

1204 

1205 

1206 
1207 
1210 
1211 
1212 

1213 

1214 

1215 


0000 

4216 

6604 
1233 
7002 
4216 

6605 
6622 
7700 
5600 
7330 
6607 
5615 
7777 


/ 

/ 

y  PAGE 

OCTOUT,  0 

JMS  OUT 
LODIS 
TAD  0UTK2 
BSW 

JMS  OUT 

HIDIS 

FUNLO 

SMA  CLA 

JMP  I  OCTl 

R4000 

SELMD 

XMOX,  7777 1  '+t 


1216  0000 
1217  3233 
1220  1233 
1221  0238 


/ 
OUT, 


0 

DCA  0UTK2 
TAD  0UTK2 
AND  R70 


/UPDATE  DATA  WORDS 
/YES.  RESET  ADDRESS 


/GET  DATA  TYPE 


28B  arcs? 

Sffii 0F  0001,56 


/SAVE  BAD  BITS 
/RETURN  TO  MONITOR  FIELD 
/DO  A  RESTART 


/DO  WE  WANT  OUT? 


/YES.  DO  A  RESTART 
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1222 

7104 

CLL 

RAL 

1223 

3232 

DC  A 

OUTKI 

1224 

1233 

TAD 

0UTK2 

1225 

0231 

AND 

K7 

1226 

1232 

TAD 

OUTKI 

1227 

5616 

JMP 

I  OUT 

1230 

0070 

y 

K70, 

70 

1231 

0007 

K7, 

7 

1232 

0000 

OUTKI, 

0 

1233 

0000 

0UTK2, 

0 

/ 


/ALIGN  HIGH  DIGIT 


/TRANSFER  CODE  ROUTINE.  USE  HON I TOR  TO  LOAD  ADDRESS  OF 
/DESTINATION  IN  0UTK2 .  THEN  SWITCH  TO  GOTO  SINCE  POINTER 
/IS  NOW  AT  START  OF  TRANSFER  ROUTINE. 

/ 


1234 

1233 

TRAN, 

TAD  OUTK2 

1235 

3200 

DCA  OCTOUT 

1236 

1254 

TAD  XFIRST 

1237 

3216 

DCA  OUT 

1240 

1255 

TAD  KLEN 

1241 

3232 

DCA  OUTKI 

1242 

1616 

TRAN1 , 

TAD  I  OUT 

1243 

3600 

DCA  I  OCTOUT 

1244 

2200 

ISZ  OCTOUT 

1245 

2216 

ISZ  OUT 

1246 

2232 

ISZ  OUTKI 

1247 

5242 

JMP  TRAN  1 

1250 

1256 

TAD  JLEN 

1251 

1233 

TAD  OUTK2 

1252 

3200 

DCA  OCTOUT 

1253 

5600 

JMP  I  OCTOUT 

1254 

1000 

XFIRST, 

XF1ELD 

1255 

7521 

KLEN, 

XF I ELD-END 

1256 

0003 

JLEN, 

START-XFIELD 

END, 

/ 

1000 

1175 

1177 

1200 

1257 

1377 

/HAVE  NEW  STARTING  ADDRESS 
/BEGIN  TESTING  IMMEDIATELY 


TRAN1  1242 
UPDAT  1076 
UPDAT1  1107 
XFIELD  1000 
XFIRST  1254 
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APPENDIX  E: 


LISTING  OF  COMPUTER  PROGRAM  USED  TO  CHECK  MAGNETIC 
TAPES  IN  THE  FIELD  FOR  RELIABILITY 

Four  Functions  in  Hidden  Positions 


BLACK 

EXTERNAL  DATA  BLOCK 


WHITE 

LDN 


STARTING  LOC 

MEMORY  ADDRESS 
(Both  read  and  write) 


Read  is  load 

cassette  program; 

write  is  begin  execution  of 

program  in  field  0 

at  address  currently 

in  memory  address 

register;  execute  must  be 

pushed  first  and  released  last 

to  avoid  activating  cassette. 


MEMORY  CONTENTS  (both  read  and  write); 
execute  must  be  pushed  first  and  released 
last  when  writing  into  memory;  the 
monitor  increments  the  address  after 
read  or  write 

Field  (both  read  and  write) 

0  has  ROM  and  RAM 

1  has  data  RAM 

2  has  ROM  only 


To  Use  Any  Program 

1.  Turn  box  off  and  on,  if  needed.  The  cassette  program  is  wiped 
out  during  data  collection 

2.  Turn  function  switch  to  read  cassette  position  (black) 

3.  Press  display 

4.  Start  tape  recorder 

5.  Display  blanks  out  when  leader  is  detected 

6.  Display  returns  with  check  sum  shown  (should  be  0). 

To  Use  Check  Tape  Program 

1.  Load  as  described  above 

2.  Write:  1000  for  minisample  (or  1002  for  block  tapes)  into 

memory  address 

3.  Begin  execution  as  described  above 
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4.  Start  tape  recorder.  Program  will  read  cassette  tape  and  stuff 
characters  in  Field  1  buffer  beginning  at  Loc  1;  simultaneously,  the 
same  information  will  be  displayed  in  LED  readout:  bad  bits  in  leadpr 
(377s)  and  in  line  feeds  (000s)  should  be  watched  for  --  they  can  be 
seen  despite  the  high  speed  of  the  incoming  data  stream;  display  format: 

PE  =  parity  error 
FE  =  framing  error 
0E  =  overrun  error 

5.  For  minisample  tapes,  read  about  30  blocks  or  as  many  as  there 
are  (maximum  =  69  blocks);  for  block  tapes,  read  about  30  (maximum  =  30) 

6.  To  look  at  raw  data,  hit  the  sample  key  to  return  to  monitor 
(see  above  for  memory  commands;  data  in  Field  1 

7.  To  evaluate  data,  hit  start;  display  will  blank  during  process¬ 
ing;  display  will  return  when  program  returns  to  monitor;  display 

i nterpretation: 


-2  Cannot  find  such  bytes 
-1  Cannot  find  leader 

These  errors  can  occur  in  the  middle  of  a  minisample  tape  when  the  pre¬ 
vious  blocks  are  correct;  Loc  23,  Field  0  should  be  examined  to  get  the 
number  of  blocks  in  error  before  this  point. 

0  No  errors  detected 
any  +  number 

Number  or  error  correcting  code  blocks  found  in  error 

8.  If  desired,  data  may  be  examined  in  Field  1;  the  format  of  the 
data  is  listed  in  Table  1;  data  begins  at  Loc  1,  Field  1 

9.  Program  may  be  restarted  at  either  address  as  many  times  as 
needed  without  reloading;  go  to  Step  2. 
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/ 

/DEFINITIONS  FROM  NOISEMON 

0CTBCD=6363 

FUN2AA=5634 

FUN2AB=S636 

KD10= 156 

KD20= 160 

KD200= 173 

KD400= 1 72 

KD3777=7350 

KD7700= 165 

KD7760= 166 

KM  12= 155 

MODE= 125 

TSW3=210 

TSW5=222 

SUB= 1 15 

GOSUB= JMS  SUB 

IRETN= 123 

RETURN= JMP  I  IRETN 

/ 

DEFINE  CALL  XX 
<  GOSUB 

XX 

> 

/ 

/ 

/CASSETTE  COMMANDS  FOR  EMULATOR 
CSSF=6061 
CSLS=6066 
/ 

/ 


/ 

*1000 


1000 

7240 

MINI, 

STA 

/ENTRY  FOR  MINI  SAMPLE 

1001 

7410 

/ 

BLOCK, 

SKP 

1002 

7200 

CLA 

/ENTRY  FOR  BLOCK  TAPES 

1003 

3253 

DCA  FLAG 

1004 

6002 

IOF 

/READ  TAPE  UNTIL  START  SWITCH  IS  DEPRESSED 

1005 

6627 

TIN 

/THEN  JUMP  TO  ERROR  CHECKER 

1006 

7200 

CLA 

1007 

3010 

DCA  10 

/SET  UP  BUFFER  STARTING  AT  LOC.  I 

1010 

1377 

TAD  (5000+TSW5 

/INHIBIT  START  AND  SAMPLE  SWITCHES 

1011 

3776 

/ 

UIN, 

DCA  TSV3 

1012 

6622 

FUNLO 

/CHECK  FOR  ESCAPES 

1013 

0160 

AND  KD20 

/SAMPLE  SWITCH 

1014 

7640 

SZA  CLA 

1015 

5177 

/ 

JMP  177 

/YES.  EXIT  TO  MONITOR 

1016 

6622 

FUNLO 

1017 

0156 

AND  KD10 

/START  SWITCH? 

1020 

7640 

SZA  CLA 

1021 

5254 

/ 

JMP  INP1 

/YES.  EXIT  TO  TAPE  ANALYZER 

1022 

6626 

STATIN 

/A  CHAR  AVAILABLE? 

1023 

0173 

AND  KD200 

1024 

7650 

SNA  CLA 

1025 

5212 

JMP  UIN 
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/ 


1026  6626 
1027  0375 

1030  7002 

1031  3006 

1032  6627 

1033  0374 

1034  1006 

1035  3022 

1036  1022 

1037  4115 

1040  6363 

1041  4115 

1042  5636 


1043  1 160 

1044  1125 

1045  6607 

1046  1022 

1047  3410 

1050  1125 

105 1  6607 

1052  5212 


1053  0000 


1054  7200 

1055  3011 

1056  1011 

1057  3012 

1060  3023 

1061  1253 

1062  7700 

1063  5270 


/ 


/ 

/ 


FLAG, 

/ 

/ 


INP1, 


1064  4274 

1065  4321 

1066  4773 

1067  5264 


/ 

MINX, 


1070  4274 

1071  4321 

1072  4773 

1073  5272 


/ 

BLK, 


®00e  LEADE 

1075  7350 

1076  0125 

1077  3125 

1100  1125 

1101  6607 


1 102  1 165 

1 103  3007 


1104 

1 105 

1 106 


1372 

3005 


/ 

LR1 , 


2007  LR2, 


STATIN 
AND  (70) 

BSW 
DCA  6 
TIN 

AND  (377) 
TAD  6 
DCA  22 
TAD  22 
CALL  OCT BCD 

CALL  FUN2AB 


TAD  KD20 
TAD  MODE 
SELMD 
TAD  22 
DCA  I  10 
TAD  MODE 
SELMD 
JMP  UIN 


0 


CLA 
DCA  11 
TAD  11 
DCA  12 
DCA  23 
TAD  FLAG 
SMA  CLA 
JMP  BLK 

JMS  LEADER 
JMS  SYNCH 
JMS  ERR CD 
JMP  MINX 

JMS  LEADER 
JMS  SYNCH 
JMS  ERRCD 
JMP  .-i 

0 

KD3777 
AND  MODE 
DCA  MODE 
TAD  MODE 
SELMD 

TAD  KD7700 
DCA  7 

TAD  (-4) 

DCA  5 
ISZ  7 


/FOUND  A  CHAR.  GET  ERROR  BITS 


/SAVE  FOR  LATER 
/GET  THE  CHAR 
/MASK  OUT  UNUSED  BITS 
/PUT  IT  ALL  TOGETHER 


/DISPLAY 


/SET  FIELD  HARDWARE 

/STUFF  DATA — 1  BYTE  PER  WORD 
/RESTORE  FIELD  HARDWARE 

/GET  MORE 

/0  FOR  BLOCK,  •  »  FOR  MINI 


/SET  UP  DATA  RETRIEVAL 
/ZERO  ERROR  COUNT 


/DECODE  MINI 


/DECODE  BLOCK  DATA 
/FOREVER 

/TURN  OFF  DISPLAY 


/SET  LEADER  COUNTER 


/ONLY  UP  TO  64  TRIES 


1107 

7410 

SXP 

1110 

5771 

/ 

JMP 

ERR! 

111! 

4770 

/ 

ns 

TEST 

1112 

4767 

ns 

GET BYT 

1113 

1366 

tad 

i-3 77> 

1114 

7640 

sza 

CLA 

1115 

S304 

/ 

JMP 

LRi 

1116 

2005 

ISZ 

5 

1117 

5308 

/ 

JMP 

LK2 

1120 

5674 

/ 

JMP 

I  LEADER 

/ 

1121 

ww 

SYNCH, 

0 

1122 

1166 

TAD 

KD7768 

1123 

3007 

/ 

DCA 

7 

1124 

3004 

SYN1 , 

OCA 

4 

1125 

1365 

TAD 

(13) 

1126 

4764 

* 

JMS 

SYNS 

1127 

7346 

KX3 

1130 

1004 

TAD 

4 

1131 

7740 

SZA 

SMA  CLA 

1132 

5324 

/ 

JMP 

SYN1 

1133 

136 3 

TAD 

(320) 

U34 

4764 

JMS 

SYNS 

1135 

1362 

TAD 

(-6) 

1136 

1004 

TAD 

4 

1137 

7740 

SZA 

SMA  CLA 

1140 

5324 

/ 

JMP 

SYNI 

/ 

1141 

1155 

TAD 

KM  12 

1 142 

3024 

DCA 

24 

1143 

3030 

DCA 

30 

1144 

1361 

TAD 

(-63) 

1145 

3025 

DCA 

25 

1146 

7240 

STA 

1147 

3026 

DCA 

26 

1150 

3027 

/ 

DCA 

27 

HSt 

5721 

/ 

JMP 

I  SYNCH 

1161 

7715 

PAGE 

1162 

7772 

1163 

0320 

1164 

1200 

1165 

0013 

1166 

7401 

1167 

1216 

1170 

1420 

1171 

1401 

1172 

7774 

1173 

1256 

1174 

0377 

1175 

0070 

/COULDN'T  FIND  LEADER' 

/IS  THESE  ENOCGH  CHARS  IN  BUFFER? 

/GET  A  CHAR  FROM  BUFFER  (MASKED) 

/IS  IT  AN  ERROR  FREE  LEADER  CHAR?  <A  377) 

/VO'  BESET  COUNTER  AND  TRY  AGAIN 

/YES*  ADVANCE  COUNTER.  LOOK  FOR 
/4  COVSECITIVE  LEADER  CHARS 

/OK.  POSITIVE  I DENT  OF  LEADER.  EXIT. 

/SET  IT  LEADER  COUNTER 


/CLEAR  ERROR  COUNTER 

/LOOK  FOR  FIRST  SYNCH  BYTE  ( 13> 

/ALLOW  UP  TO  3  ERRORS 

/TOO  MANY  TRY  AGAIN. 

/LOOK  Ft®  SECOND  SYNCH  BYTE  (320) 
/ALLOW  IT  TO  SIX  ERRORS  TOTAL 


/DONE  WITH  SYNCH.  SET  UP  EBRCD 
/SET  UP  12  BIT  WORDS. 

/CLEAR  RESULT  WORD 

/SET  UP  51  BIT  DATA  STREAM 

/INITIALIZE  BYTE  GETTER 

/CLEAR  POLYNOMIAL  RESULT 
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1176 

0210 

1177 

5222 

/ 

/ 

1200 

0000 

SYNS, 

0 

1201 

3005 

DC  A  S 

1202 

2007 

ISZ  7 

1203 

7410 

SKP 

1204 

5777 

/ 

JMP  ERR2 

1205 

4776 

/ 

JMS  TEST 

1206 

4216 

JMS  GETBYT 

1207 

4231 

JMS  EXOR 

1210 

71 10 

CLL  RAR 

121 1 

7430 

SZL 

1212 

2004 

ISZ  4 

1213 

7440 

SZA 

1214 

S210 

/ 

JMP  .-4 

1215 

5600 

/ 

JMP  1  SYNS 

/ 

1216 

0000 

GETBYT, 

0 

1217 

1160 

TAD  KD20 

1220 

1125 

TAD  MODE 

1221 

6607 

SELMD 

1222 

1411 

TAD  1  U 

1223 

3006 

DCA  6 

1224 

1 125 

TAD  MODE 

1225 

6607 

SELMD 

1226 

1006 

TAD  6 

1227 

0375 

AND  (377) 

1230 

5616 

/ 

JMP  I  GETBYT 

/ 

1231 

0000 

EXOR, 

0 

1232 

3006 

DCA  6 

1233 

1006 

TAD  6 

1234 

7040 

CMA 

I23S 

0005 

AND  5 

1236 

7421 

MOL 

1237 

1005 

TAD  5 

1240 

7040 

CMA 

1241 

0006 

AND  6 

1242 

7501 

MQA 

1243 

5631 

/ 

JMP  1  EXOR 

/ 

1244 

0000 

PUTWRD, 

0 

1245 

3006 

DCA  6 

1246 

1160 

TAD  KD20 

1247 

1 125 

TAD  MODE 

1250 

6607 

SELMD 

1251 

1006 

TAD  6 

1252 

3412 

DCA  I  12 

1253 

1125 

TAD  MODE 

1254 

6607 

SELMD 

1255 

5644 

JMP  I  PUTWRD 

/ 


/SAVE  SYNCH  BYTE  REFERENCE 
/ALLOW  ONLY  16  TRIES 

/COULDN’T  FIND  SYNCH  BYTES 

/ARE  THERE  ENOUGH  CHARS  IN  BUFFER? 

/GET  A  CHAR  FROM  BUFFER  (MASKED) 

/AND  COMPARE 

/COUNT  THE  NUMBER  OF  DIFFERENCE  BITS 


/END  OF  LOOP  TEST 


/OK.  DONE  WITH  CHECK 


/DATA  IS  STORED  IN  FIELD  ONE 


/RESTORE  HARDWARE  TO  FIELD  ZERO 


/MASK  OUT  ERROR  BITS 

/EXIT  WITH  CHAR  IN  ACCUMULATOR 


/SAVE  ONE  ARG.  OTHER  IS  IN  5 
/EXOR  =  X  BAR  AY  *  X  1  Y  BAR 


/A  PDP-8  INCLUSIVE  OR 

/EXIT  WITH  RESULT  IN  ACCUMULATOR 


/SAVE  DATA  TEMPORARILY 
/DATA  IS  STORED  IN  FIELD  1 


/RESTORE  HARDWARE  TO  FIELD  ZERO 
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/ 


1256 

0000 

ERRCD, 

0 

1257 

4776 

/ 

JMS  TEST 

/CHECK  TO  SEE  IF  THERE  ARE  8  BYTES  AVAILABLE 

1260 

4312 

/ 

CD2, 

JMS  CHKBIT 

1261 

1030 

TAD  30 

/SHIFT  BIT  INTO  DATA 

1262 

7004 

RAL 

1263 

3030 

DCA  30 

1264 

2024 

ISZ  24 

/DONE  WITH  12  BITS? 

1265 

5273 

/ 

JMP  CD1 

1266 

1155 

TAD  KM  12 

/YES.  RESET  COUNTER 

1267 

3024 

DCA  24 

1270 

1030 

TAD  30 

/AND  STUFF  IN  MEMORY 

1271 

4244 

JMS  PUTWRD 

1272 

3030 

DCA  30 

/CLEAR  DATA  WORD 

1273 

2025 

y 

CD  1 , 

ISZ  25 

/DONE  WITH  51  BITS? 

1274 

5260 

/ 

JMP  CD2 

1275 

1155 

TAD  KM  12 

/DO  12  BIT  CHECK  CODE 

1276 

3025 

DCA  25 

1277 

4312 

CD3, 

JMS  CHKBIT 

/IGNORE  DATA  BIT 

1300 

2025 

ISZ  25 

1301 

5277 

/ 

JMP  CD3 

1302 

1027 

TAD  27 

/IS  REMAINDER  ZERO? 

1303 

7640 

SZA  CLA 

1304 

2023 

/ 

ISZ  23 

/NO?  ADVANCE  ERROR  COUNT 
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3025 
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/ 

/ 

DCA  27 
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1312 
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/ 
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0 
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1314 

5321 
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4216 
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3031 
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/ 
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1321 
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/GET  BIT  FROM  BYTE 
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1413 
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0 
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/OUTPUT  LEADER  ’377’ 
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JMP  ULOOP1 

7207 

4276 
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/ 

/ 
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7210 

3034 

PUNOUT, 

DCA 
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1027 

TAD 
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7421 
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1030 

TAD 
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7214 

4253 

JMS 

ULOOP2 

7215 

1031 

TAD 

DMPEND 
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7216 

7421 

MQL 

7217 

1031 

TAD 

DMPEND 

/COMPUTE  NUMBER  OF  WORDS  TO  SEND 

7220 

7040 

CMA 

7221 

1030 

TAD 

DMPBEG 

7222 

3037 

DCA 
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7223 

1037 

TAD 
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7224 

4253 

/ 

JMS 

UL00P2 

7225 

1030 

TAD 

DMPBEG 

/SET  UP  ADDRESS  POINTER 

7226 

3032 

/ 

PUNDAT, 

DCA 

DMPBG 

7227 

1432 

TAD 
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7230 

7421 
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7231 

2032 
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NOP 

7233 

1432 

TAD 
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7234 

2032 

ISZ  DMPBG 

7235 

7000 

NOP 

7236 

3036 
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7237 

1036 

TAD  OCT 2 

7240 

4253 

JUS  UL00P2 

/SEND  DATA 

7241 

2037 

S 

ISZ  BIT 

/ADVANCE  COUNTER 

7242 

7410 

SAP 

7243 

5246 

JMP  . *3 

7244 

2037 

ISZ  BIT 

7245 

5227 

JMP  PTXDAT 

7246 

1034 

TAD  DMPCK 

/DONE.  SEND  CHECKSUM 

7247 

7041 

CIA 

7250 

4276 

JMS  PUNCH 

7251 

7402 

BLT 

7252 

5200 

/ 

JMP  STAB 

7253 

UUWJ 

/ 

IX00P2. 

O 

72S4 

7521 

SUP 

/GET  FIRST  DATA  I CTO  ACCUMULATOR 

72S5 

3033 

DCA  DMPX 

7256 

1033 

TAD  dmpx 

/SEND  FIRST  8  BITS 

7257 

4276 

JUS  PUNCH 

7260 

1033 

TAD  DNPX 

7261 

0375 

AND  <7400 

/GET  REMAINING 

.'262 

3033 

DCA  DNPX 

7263 

7501 

JfQA 

/PICK  IT  HIGH  4  BITS  FROM  SECOND  WORD 

7264 

0375 

AND  <7400 

7265 

7112 

CLL  BTB 

7266 

7012 
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7267 
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7270 
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7271 
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7272 

4276 
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7501 
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7274 
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/ 
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/ 
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ww 

0 
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7300 

3036 
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/ 

• 
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KD400 

0172 

KD7700 

0165 

KD7760  0166 

KN12 
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